Changeset 5385 for trunk/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
- Timestamp:
- 2015-06-09T15:50:42+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r5131 r5385 264 264 fr_i(:,:) = sf_dyn(jf_ice)%fnow(:,:,1) * tmask(:,:,1) ! Sea-ice fraction 265 265 qsr (:,:) = sf_dyn(jf_qsr)%fnow(:,:,1) * tmask(:,:,1) ! solar radiation 266 IF 266 IF( ln_dynrnf ) & 267 267 rnf (:,:) = sf_dyn(jf_rnf)%fnow(:,:,1) * tmask(:,:,1) ! river runoffs 268 268 … … 388 388 389 389 ! 390 IF 390 IF( ln_dynrnf ) THEN 391 391 jf_rnf = jfld + 1 ; jfld = jf_rnf 392 392 slf_d(jf_rnf) = sn_rnf
Note: See TracChangeset
for help on using the changeset viewer.