- Timestamp:
- 2013-01-23T15:33:04+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r3625 r3764 165 165 fsel(:,:,6 ) = fsel(:,:,6 ) + sshn(:,:) 166 166 fsel(:,:,7 ) = fsel(:,:,7 ) + qsr(:,:) 167 fsel(:,:,8 ) = fsel(:,:,8 ) + qrp (:,:) 168 fsel(:,:,9 ) = fsel(:,:,9 ) + erp (:,:) 167 IF( ln_ssr ) THEN 168 IF( nn_sstr /= 0 ) fsel(:,:,8 ) = fsel(:,:,8 ) + qrp (:,:) 169 IF( nn_sssr /= 0 ) fsel(:,:,9 ) = fsel(:,:,9 ) + erp (:,:) 170 ENDIF 169 171 fsel(:,:,10) = fsel(:,:,10) + hmld(:,:) 170 172 fsel(:,:,11) = fsel(:,:,11) + hmlp(:,:) … … 234 236 fsel(:,:,6 ) = sshn(:,:) 235 237 fsel(:,:,7 ) = qsr (:,:) * tmask(:,:,1) 236 fsel(:,:,8 ) = qrp (:,:) * tmask(:,:,1) 237 fsel(:,:,9 ) = erp (:,:) * tmask(:,:,1) 238 IF( ln_ssr ) THEN 239 IF( nn_sstr /= 0 ) fsel(:,:,8 ) = qrp (:,:) * tmask(:,:,1) 240 IF( nn_sssr /= 0 ) fsel(:,:,9 ) = erp (:,:) * tmask(:,:,1) 241 ENDIF 238 242 fsel(:,:,10) = hmld(:,:) * tmask(:,:,1) 239 243 fsel(:,:,11) = hmlp(:,:) * tmask(:,:,1)
Note: See TracChangeset
for help on using the changeset viewer.