Changeset 1517
- Timestamp:
- 2009-07-21T17:41:35+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r1438 r1517 150 150 END DO 151 151 END DO 152 ELSE ! no rotation but key_ldfslp defined 153 zwt (:,:,:) = avt(:,:,:) 154 # if defined key_zdfddm 155 zavsi(:,:,:) = avs(:,:,:) ! avs /= avt (double diffusion mixing) 156 # endif 152 157 ENDIF 153 158 #else
Note: See TracChangeset
for help on using the changeset viewer.