- Timestamp:
- 2020-11-10T12:57:08+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_12905_xios_ancil
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_ancil
- 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_ancil/src/TOP/PISCES/P4Z/p4zsed.F90
r12377 r13766 18 18 USE sed ! Sediment module 19 19 USE iom ! I/O manager 20 USE prtctl _trc! print control for debugging20 USE prtctl ! print control for debugging 21 21 22 22 IMPLICIT NONE … … 39 39 !! * Substitutions 40 40 # include "do_loop_substitute.h90" 41 # include "domzgr_substitute.h90" 41 42 !!---------------------------------------------------------------------- 42 43 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 93 94 ! OA: Warning, the following part is necessary to avoid CFL problems above the sediments 94 95 ! -------------------------------------------------------------------- 95 DO_2D _11_1196 DO_2D( 1, 1, 1, 1 ) 96 97 ikt = mbkt(ji,jj) 97 98 zdep = e3t(ji,jj,ikt,Kmm) / xstep … … 103 104 ! Computation of the fraction of organic matter that is permanently buried from Dunne's model 104 105 ! ------------------------------------------------------- 105 DO_2D _11_11106 DO_2D( 1, 1, 1, 1 ) 106 107 IF( tmask(ji,jj,1) == 1 ) THEN 107 108 ikt = mbkt(ji,jj) … … 129 130 IF( .NOT.lk_sed ) zrivsil = 1._wp - sedsilfrac 130 131 131 DO_2D _11_11132 DO_2D( 1, 1, 1, 1 ) 132 133 ikt = mbkt(ji,jj) 133 134 zdep = xstep / e3t(ji,jj,ikt,Kmm) … … 141 142 ! 142 143 IF( .NOT.lk_sed ) THEN 143 DO_2D _11_11144 DO_2D( 1, 1, 1, 1 ) 144 145 ikt = mbkt(ji,jj) 145 146 zdep = xstep / e3t(ji,jj,ikt,Kmm) … … 159 160 ENDIF 160 161 ! 161 DO_2D _11_11162 DO_2D( 1, 1, 1, 1 ) 162 163 ikt = mbkt(ji,jj) 163 164 zdep = xstep / e3t(ji,jj,ikt,Kmm) … … 171 172 ! 172 173 IF( ln_p5z ) THEN 173 DO_2D _11_11174 DO_2D( 1, 1, 1, 1 ) 174 175 ikt = mbkt(ji,jj) 175 176 zdep = xstep / e3t(ji,jj,ikt,Kmm) … … 186 187 ! The 0.5 factor in zpdenit is to avoid negative NO3 concentration after 187 188 ! denitrification in the sediments. Not very clever, but simpliest option. 188 DO_2D _11_11189 DO_2D( 1, 1, 1, 1 ) 189 190 ikt = mbkt(ji,jj) 190 191 zdep = xstep / e3t(ji,jj,ikt,Kmm) … … 223 224 ENDDO 224 225 IF( ln_p4z ) THEN 225 DO_3D _11_11(1, jpkm1 )226 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 226 227 ! ! Potential nitrogen fixation dependant on temperature and iron 227 228 ztemp = ts(ji,jj,jk,jp_tem,Kmm) … … 239 240 END_3D 240 241 ELSE ! p5z 241 DO_3D _11_11(1, jpkm1 )242 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 242 243 ! ! Potential nitrogen fixation dependant on temperature and iron 243 244 ztemp = ts(ji,jj,jk,jp_tem,Kmm) … … 260 261 ! ---------------------------------------- 261 262 IF( ln_p4z ) THEN 262 DO_3D _11_11(1, jpkm1 )263 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 263 264 zfact = nitrpot(ji,jj,jk) * nitrfix 264 265 tr(ji,jj,jk,jpnh4,Krhs) = tr(ji,jj,jk,jpnh4,Krhs) + zfact / 3.0 … … 277 278 END_3D 278 279 ELSE ! p5z 279 DO_3D _11_11(1, jpkm1 )280 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 280 281 zfact = nitrpot(ji,jj,jk) * nitrfix 281 282 tr(ji,jj,jk,jpnh4,Krhs) = tr(ji,jj,jk,jpnh4,Krhs) + zfact / 3.0 … … 312 313 ENDIF 313 314 ! 314 IF(sn_cfctl%l_prttrc) THEN ! print mean tr ends (USEd for debugging)315 IF(sn_cfctl%l_prttrc) THEN ! print mean trneds (USEd for debugging) 315 316 WRITE(charout, fmt="('sed ')") 316 CALL prt_ctl_ trc_info(charout)317 CALL prt_ctl _trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm)317 CALL prt_ctl_info( charout, cdcomp = 'top' ) 318 CALL prt_ctl(tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm) 318 319 ENDIF 319 320 ! … … 365 366 lk_sed = ln_sediment .AND. ln_sed_2way 366 367 ! 368 nitrpot(:,:,jpk) = 0._wp ! define last level for iom_put 369 ! 367 370 END SUBROUTINE p4z_sed_init 368 371
Note: See TracChangeset
for help on using the changeset viewer.