Changeset 5895
- Timestamp:
- 2015-11-18T17:05:56+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_flux_adjust/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx_adj.F90
r5889 r5895 105 105 DO ji = 1, jpi 106 106 zerp = ( 1. - 2.*rnfmsk(ji,jj) ) & ! No damping in vicinity of river mouths 107 & * sf_erp(1)%fnow(ji,jj,1) & 108 & * MAX( sss_m(ji,jj), 1.e-20 ) 107 & * sf_erp(1)%fnow(ji,jj,1) 109 108 sfx(ji,jj) = sfx(ji,jj) + zerp ! salt flux 110 109 END DO … … 117 116 DO jj = 1, jpj 118 117 DO ji = 1, jpi 119 zerp = sf_erp(1)%fnow(ji,jj,1) 118 zerp = ( 1. - 2.*rnfmsk(ji,jj) ) & ! No damping in vicinity of river mouths 119 & * sf_erp(1)%fnow(ji,jj,1) 120 120 IF( ln_sssr_bnd ) zerp = SIGN( 1., zerp ) * MIN( zerp_bnd, ABS(zerp) ) 121 121 emp(ji,jj) = emp (ji,jj) + zerp … … 191 191 ! 192 192 ! fill sf_qrp with sn_qrp and control print 193 CALL fld_fill( sf_qrp, (/ sn_qrp /), cn_dir, 'sbc_ flx_adj', 'Heat flux adjustment', 'namsbc_flx_adj' )193 CALL fld_fill( sf_qrp, (/ sn_qrp /), cn_dir, 'sbc_qrp', 'Heat flux adjustment', 'namsbc_flx_adj' ) 194 194 IF( sf_qrp(1)%ln_tint ) ALLOCATE( sf_qrp(1)%fdta(jpi,jpj,1,2), STAT=ierror ) 195 195 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_flx_adj: unable to allocate sf_qrp data array' )
Note: See TracChangeset
for help on using the changeset viewer.