Changeset 13226 for NEMO/trunk/src/TOP
- Timestamp:
- 2020-07-02T16:24:31+02:00 (4 years ago)
- Location:
- NEMO/trunk/src/TOP
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P2Z/p2zbio.F90
r12377 r13226 338 338 ! 339 339 IF( lk_iomput ) THEN 340 CALL lbc_lnk( 'p2zbio', zw2d(:,:,:),'T', 1. )341 CALL lbc_lnk_multi( 'p2zbio', zw3d(:,:,:,1),'T', 1. , zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1.)340 CALL lbc_lnk( 'p2zbio', zw2d(:,:,:),'T', 1.0_wp ) 341 CALL lbc_lnk_multi( 'p2zbio', zw3d(:,:,:,1),'T', 1.0_wp, zw3d(:,:,:,2),'T', 1.0_wp, zw3d(:,:,:,3),'T', 1.0_wp ) 342 342 ! Save diagnostics 343 343 CALL iom_put( "TNO3PHY", zw2d(:,:,1) ) -
NEMO/trunk/src/TOP/PISCES/P2Z/p2zexp.F90
r12489 r13226 106 106 END_2D 107 107 108 CALL lbc_lnk( 'p2zexp', sedpocn, 'T', 1. )108 CALL lbc_lnk( 'p2zexp', sedpocn, 'T', 1.0_wp ) 109 109 110 110 ! Oa & Ek: diagnostics depending on jpdia2d ! left as example … … 209 209 END IF 210 210 END_2D 211 CALL lbc_lnk( 'p2zexp', cmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)211 CALL lbc_lnk( 'p2zexp', cmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 212 212 areacot = glob_sum( 'p2zexp', e1e2t(:,:) * cmask(:,:) ) 213 213 ! -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zbc.F90
r12377 r13226 310 310 END_3D 311 311 ! 312 CALL lbc_lnk( 'p4zbc', zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)312 CALL lbc_lnk( 'p4zbc', zcmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 313 313 ! 314 314 DO_3D_11_11( 1, jpk ) -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zopt.F90
r12377 r13226 401 401 ! 402 402 CALL trc_oce_rgb( xkrgb ) ! tabulated attenuation coefficients 403 nksrp = trc_oce_ext_lev( r_si2, 0.33e2 ) ! max level of light extinction (Blue Chl=0.01)403 nksrp = trc_oce_ext_lev( r_si2, 0.33e2_wp ) ! max level of light extinction (Blue Chl=0.01) 404 404 ! 405 405 IF(lwp) WRITE(numout,*) ' level of light extinction = ', nksrp, ' ref depth = ', gdepw_1d(nksrp+1), ' m' -
NEMO/trunk/src/TOP/TRP/trcsbc.F90
r12489 r13226 154 154 END SELECT 155 155 ! 156 CALL lbc_lnk( 'trcsbc', sbc_trc(:,:,:), 'T', 1. )156 CALL lbc_lnk( 'trcsbc', sbc_trc(:,:,:), 'T', 1.0_wp ) 157 157 ! Concentration dilution effect on tracers due to evaporation & precipitation 158 158 DO jn = 1, jptra -
NEMO/trunk/src/TOP/TRP/trcsink.F90
r12377 r13226 157 157 ! slopes 158 158 DO jk = 2, jpkm1 159 zign = 0.25 + SIGN( 0.25 , ztraz(ji,jj,jk) * ztraz(ji,jj,jk+1) )159 zign = 0.25 + SIGN( 0.25_wp, ztraz(ji,jj,jk) * ztraz(ji,jj,jk+1) ) 160 160 zakz(ji,jj,jk) = ( ztraz(ji,jj,jk) + ztraz(ji,jj,jk+1) ) * zign 161 161 END DO … … 163 163 ! Slopes limitation 164 164 DO jk = 2, jpkm1 165 zakz(ji,jj,jk) = SIGN( 1. , zakz(ji,jj,jk) ) * &165 zakz(ji,jj,jk) = SIGN( 1.0_wp, zakz(ji,jj,jk) ) * & 166 166 & MIN( ABS( zakz(ji,jj,jk) ), 2. * ABS(ztraz(ji,jj,jk+1)), 2. * ABS(ztraz(ji,jj,jk) ) ) 167 167 END DO -
NEMO/trunk/src/TOP/TRP/trdtrc.F90
r12377 r13226 18 18 USE trdmxl_trc ! Mixed layer trends diag. 19 19 USE iom ! I/O library 20 USE par_kind 20 21 21 22 IMPLICIT NONE … … 107 108 !!---------------------------------------------------------------------- 108 109 110 USE par_kind 111 109 112 PUBLIC trd_trc 110 113 … … 116 119 INTEGER , INTENT( in ) :: kjn ! tracer index 117 120 INTEGER , INTENT( in ) :: ktrd ! tracer trend index 118 REAL , DIMENSION(:,:,:), INTENT( inout ) :: ptrtrd ! Temperature or U trend121 REAL(wp), DIMENSION(:,:,:), INTENT( inout ) :: ptrtrd ! Temperature or U trend 119 122 WRITE(*,*) 'trd_trc : You should not have seen this print! error?', ptrtrd(1,1,1) 120 123 WRITE(*,*) ' " " : You should not have seen this print! error?', kjn -
NEMO/trunk/src/TOP/trcbdy.F90
r12377 r13226 96 96 END DO 97 97 IF( ANY(llsend1) .OR. ANY(llrecv1) ) THEN ! if need to send/recv in at least one direction 98 CALL lbc_lnk( 'trcbdy', tr(:,:,:,:,Krhs), 'T', 1. , kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 )98 CALL lbc_lnk( 'trcbdy', tr(:,:,:,:,Krhs), 'T', 1.0_wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 99 99 END IF 100 100 !
Note: See TracChangeset
for help on using the changeset viewer.