Changeset 7781 for branches/UKMO
- Timestamp:
- 2017-03-09T16:06:53+01:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_fix_rnf/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_fix_rnf/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r6498 r7781 340 340 emp_b(:,:) = emp(:,:) 341 341 sfx_b(:,:) = sfx(:,:) 342 IF ( ln_rnf ) THEN ! Need to be here so that order is correct in coupled mode 343 rnf_b (:,: ) = rnf (:,: ) 344 rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:) 345 ENDIF 346 ! 347 ENDIF 348 342 349 ENDIF 343 350 ! ! ---------------------------------------- ! -
branches/UKMO/dev_r5518_GO6_package_fix_rnf/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r6498 r7781 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.