Changeset 7802
- Timestamp:
- 2017-03-16T11:18:36+01:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_rnf_fix/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_rnf_fix/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r7800 r7802 339 339 emp_b(:,:) = emp(:,:) 340 340 sfx_b(:,:) = sfx(:,:) 341 IF ( ln_rnf ) THEN ! Need to be here so that order is correct in coupled mode 342 rnf_b (:,: ) = rnf (:,: ) 343 rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:) 344 ENDIF 345 ! 341 346 ENDIF 342 347 ! ! ---------------------------------------- ! -
branches/UKMO/dev_r5518_rnf_fix/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r7800 r7802 110 110 CALL wrk_alloc( jpi,jpj, ztfrz) 111 111 112 ! ! ---------------------------------------- !113 IF( kt /= nit000 ) THEN ! Swap of forcing fields !114 ! ! ---------------------------------------- !115 rnf_b (:,: ) = rnf (:,: ) ! Swap the ocean forcing fields except at nit000116 rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:) ! where before fields are set at the end of the routine117 !118 ENDIF119 120 112 ! !-------------------! 121 113 ! ! Update runoff !
Note: See TracChangeset
for help on using the changeset viewer.