Changeset 10479 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
- Timestamp:
- 2019-01-09T12:22:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r8058 r10479 82 82 ALLOCATE( rnfmsk(jpi,jpj) , rnfmsk_z(jpk) , & 83 83 & h_rnf (jpi,jpj) , nk_rnf (jpi,jpj) , & 84 & rnf_tsc_b(jpi,jpj,jpts) , rnf_tsc (jpi,jpj,jpts) , STAT=sbc_rnf_alloc ) 84 & rnf_tsc_b(jpi,jpj,jpts) , rnf_tsc (jpi,jpj,jpts) , & 85 & xrnfmask(jpi,jpj,1) , STAT=sbc_rnf_alloc ) 85 86 ! 86 87 IF( lk_mpp ) CALL mpp_sum ( sbc_rnf_alloc ) … … 128 129 IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN 129 130 ! 130 IF( .NOT. l_rnfcpl ) rnf(:,:) = rn_rfact * ( sf_rnf(1)%fnow(:,:,1) ) ! updated runoff value at time step kt 131 IF( .NOT. l_rnfcpl ) & 132 rnf(:,:) = rnf(:,:) * (1. - xrnfmask(:,:,1)) + rn_rfact * sf_rnf(1)%fnow(:,:,1) * xrnfmask(:,:,1) ! updated runoff value at time step kt 131 133 ! 132 134 ! ! set temperature & salinity content of runoffs … … 442 444 ENDIF 443 445 ! 446 xrnfmask(:,:,:) = 1. ! default value for points using river forcing 447 IF (ln_usernfmask) THEN 448 IF(lwp) WRITE(numout,*) 449 IF(lwp) WRITE(numout,*) ' runoff mask read in a file' 450 CALL iom_open( 'rnfmask', inum ) 451 CALL iom_get( inum, jpdom_data, 'rnfmask', xrnfmask(:,:,1), 1) 452 CALL iom_close( inum ) 453 ENDIF 454 ! 444 455 rnf(:,:) = 0._wp ! runoff initialisation 445 456 rnf_tsc(:,:,:) = 0._wp ! runoffs temperature & salinty contents initilisation
Note: See TracChangeset
for help on using the changeset viewer.