- Timestamp:
- 2020-11-05T15:18:53+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_12905_xios_restart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_12905_xios_restart/src/TOP/PISCES/P2Z/p2zopt.F90
r12377 r13727 18 18 USE trc 19 19 USE sms_pisces 20 USE prtctl _trc! Print control for debbuging20 USE prtctl ! Print control for debbuging 21 21 22 22 IMPLICIT NONE … … 40 40 !! * Substitutions 41 41 # include "do_loop_substitute.h90" 42 # include "domzgr_substitute.h90" 42 43 !!---------------------------------------------------------------------- 43 44 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 94 95 ! ! Photosynthetically Available Radiation (PAR) 95 96 zcoef = 12 * redf / rcchl / rpig ! -------------------------------------- 96 DO_3D _11_11( 2, jpk )97 DO_3D( 1, 1, 1, 1, 2, jpk ) ! local par at w-levels 97 98 zpig = LOG( MAX( TINY(0.), tr(ji,jj,jk-1,jpphy,Kmm) ) * zcoef ) 98 99 zkr = xkr0 + xkrp * EXP( xlr * zpig ) … … 101 102 zparg(ji,jj,jk) = zparg(ji,jj,jk-1) * EXP( -zkg * e3t(ji,jj,jk-1,Kmm) ) 102 103 END_3D 103 DO_3D _11_11( 1, jpkm1 )104 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) ! mean par at t-levels 104 105 zpig = LOG( MAX( TINY(0.), tr(ji,jj,jk,jpphy,Kmm) ) * zcoef ) 105 106 zkr = xkr0 + xkrp * EXP( xlr * zpig ) … … 113 114 ! ! -------------- 114 115 neln(:,:) = 1 ! euphotic layer level 115 DO_3D _11_11( 1, jpkm1)116 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) ! (i.e. 1rst T-level strictly below EL bottom) 116 117 IF( etot(ji,jj,jk) >= zpar100(ji,jj) ) neln(ji,jj) = jk + 1 117 118 END_3D 118 119 ! ! Euphotic layer depth 119 DO_2D _11_11120 DO_2D( 1, 1, 1, 1 ) 120 121 heup(ji,jj) = gdepw(ji,jj,neln(ji,jj),Kmm) 121 122 END_2D … … 124 125 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 125 126 WRITE(charout, FMT="('opt')") 126 CALL prt_ctl_ trc_info( charout)127 CALL prt_ctl _trc( tab4d=tr(:,:,:,:,Kmm), mask=tmask, clinfo=ctrcnm )127 CALL prt_ctl_info( charout, cdcomp = 'top' ) 128 CALL prt_ctl( tab4d_1=tr(:,:,:,:,Kmm), mask1=tmask, clinfo=ctrcnm ) 128 129 ENDIF 129 130 !
Note: See TracChangeset
for help on using the changeset viewer.