Changeset 2937 for branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO
- Timestamp:
- 2011-10-16T10:02:10+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilapg.F90
r2926 r2937 301 301 ! --------------------------------------------------------------------- 302 302 303 IF( kaht== 1 ) THEN303 IF( ( kaht-nkaht_smag) == 1 ) THEN 304 304 ! multiply the laplacian by the eddy diffusivity coefficient 305 305 DO jk = 1, jpkm1 … … 313 313 END DO 314 314 END DO 315 ELSEIF( kaht== 2 ) THEN315 ELSEIF( ( kaht+nkaht_smag ) == 2 ) THEN 316 316 ! second call, no multiplication 317 317 DO jk = 1, jpkm1
Note: See TracChangeset
for help on using the changeset viewer.