- Timestamp:
- 2020-09-15T12:56:56+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/temporary_r4_trunk/src/TOP/PISCES/P4Z/p4zsbc.F90
r13469 r13470 126 126 CALL fld_read( kt, 1, sf_river ) 127 127 IF( ln_p4z ) THEN 128 DO_2D _11_11128 DO_2D( 1, 1, 1, 1 ) 129 129 zcoef = ryyss * e1e2t(ji,jj) * h_rnf(ji,jj) 130 130 rivalk(ji,jj) = sf_river(jr_dic)%fnow(ji,jj,1) & … … 142 142 END_2D 143 143 ELSE ! ln_p5z 144 DO_2D _11_11144 DO_2D( 1, 1, 1, 1 ) 145 145 zcoef = ryyss * e1e2t(ji,jj) * h_rnf(ji,jj) 146 146 rivalk(ji,jj) = sf_river(jr_dic)%fnow(ji,jj,1) & … … 407 407 IF(lwp) WRITE(numout,*) 408 408 IF(lwp) WRITE(numout,*) ' Level corresponding to 50m depth ', ik50,' ', gdept_1d(ik50+1) 409 DO_3D _00_00(1, ik50 )409 DO_3D( 0, 0, 0, 0, 1, ik50 ) 410 410 ze3t = e3t_0(ji,jj,jk) 411 411 zsurfc = e1u(ji,jj) * ( 1. - umask(ji ,jj ,jk) ) & … … 423 423 CALL lbc_lnk( 'p4zsbc', zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged) 424 424 ! 425 DO_3D _11_11(1, jpk )425 DO_3D( 1, 1, 1, 1, 1, jpk ) 426 426 zexpide = MIN( 8.,( gdept_n(ji,jj,jk) / 500. )**(-1.5) ) 427 427 zdenitide = -0.9543 + 0.7662 * LOG( zexpide ) - 0.235 * LOG( zexpide )**2
Note: See TracChangeset
for help on using the changeset viewer.