- Timestamp:
- 2021-04-07T15:48:38+02:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP
- Files:
-
- 7 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP/PISCES/P2Z/p2zbio.F90
r13295 r14676 340 340 IF( lk_iomput ) THEN 341 341 CALL lbc_lnk( 'p2zbio', zw2d(:,:,:),'T', 1.0_wp ) 342 CALL lbc_lnk _multi( 'p2zbio', zw3d(:,:,:,1),'T', 1.0_wp, zw3d(:,:,:,2),'T', 1.0_wp, zw3d(:,:,:,3),'T', 1.0_wp )342 CALL lbc_lnk( 'p2zbio', zw3d(:,:,:,1),'T', 1.0_wp, zw3d(:,:,:,2),'T', 1.0_wp, zw3d(:,:,:,3),'T', 1.0_wp ) 343 343 ! Save diagnostics 344 344 CALL iom_put( "TNO3PHY", zw2d(:,:,1) ) -
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP/PISCES/sms_pisces.F90
r12377 r14676 70 70 71 71 !!* Biological fluxes for light : variables shared by pisces & lobster 72 INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:) :: neln !: number of T-levels + 1 in the euphotic layer73 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup !: euphotic layer depth74 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot !: par (photosynthetic available radiation)75 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot_ndcy !: PAR over 24h in case of diurnal cycle76 72 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: enano, ediat !: PAR for phyto, nano and diat 77 73 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: enanom, ediatm !: PAR for phyto, nano and diat … … 79 75 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: epicom !: PAR for pico 80 76 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: emoy !: averaged PAR in the mixed layer 81 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup_01 !: Absolute euphotic layer depth82 77 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: xksi !: LOBSTER : zooplakton closure 83 78 … … 139 134 ierr(:) = 0 140 135 !* Biological fluxes for light : shared variables for pisces & lobster 141 ALLOCATE( etot(jpi,jpj,jpk), neln(jpi,jpj), heup(jpi,jpj), & 142 & heup_01(jpi,jpj) , xksi(jpi,jpj) , STAT=ierr(1) ) 136 ALLOCATE( xksi(jpi,jpj) , STAT=ierr(1) ) 143 137 ! 144 138 … … 147 141 ALLOCATE( enano(jpi,jpj,jpk) , ediat(jpi,jpj,jpk) , & 148 142 & enanom(jpi,jpj,jpk) , ediatm(jpi,jpj,jpk), & 149 & e tot_ndcy(jpi,jpj,jpk), emoy(jpi,jpj,jpk), STAT=ierr(2) )143 & emoy(jpi,jpj,jpk) , STAT=ierr(2) ) 150 144 151 145 !* Biological fluxes for primary production -
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP/README.rst
r14328 r14676 376 376 .. code-block:: perl 377 377 378 bld::tool::fppkeys key_zdftke key_dynspg_tskey_xios key_top378 bld::tool::fppkeys key_xios key_top 379 379 inc <MYBGCPATH>/MYBGC.fcm 380 380 -
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP/TRP/trcadv.F90
r14086 r14676 131 131 CASE ( np_FCT ) ! FCT : 2nd / 4th order 132 132 IF (nn_hls.EQ.2) THEN 133 CALL lbc_lnk _multi( 'trcadv', ptr(:,:,:,:,Kbb), 'T', 1., ptr(:,:,:,:,Kmm), 'T', 1.)134 CALL lbc_lnk _multi( 'traadv', zuu(:,:,:), 'U', -1., zvv(:,:,:), 'V', -1., zww(:,:,:), 'W', 1.)133 CALL lbc_lnk( 'trcadv', ptr(:,:,:,:,Kbb), 'T', 1., ptr(:,:,:,:,Kmm), 'T', 1.) 134 CALL lbc_lnk( 'traadv', zuu(:,:,:), 'U', -1., zvv(:,:,:), 'V', -1., zww(:,:,:), 'W', 1.) 135 135 #if defined key_loop_fusion 136 136 CALL tra_adv_fct_lf( kt, nittrc000,'TRC', rDt_trc, zuu, zvv, zww, Kbb, Kmm, ptr, jptra, Krhs, nn_fct_h, nn_fct_v ) … … 143 143 CASE ( np_MUS ) ! MUSCL 144 144 IF (nn_hls.EQ.2) THEN 145 IF (nn_hls.EQ.2)CALL lbc_lnk( 'trcadv', ptr(:,:,:,:,Kbb), 'T', 1.)145 CALL lbc_lnk( 'trcadv', ptr(:,:,:,:,Kbb), 'T', 1.) 146 146 #if defined key_loop_fusion 147 147 CALL tra_adv_mus_lf( kt, nittrc000,'TRC', rDt_trc, zuu, zvv, zww, Kbb, Kmm, ptr, jptra, Krhs, ln_mus_ups ) … … 157 157 CASE ( np_QCK ) ! QUICKEST 158 158 IF (nn_hls.EQ.2) THEN 159 CALL lbc_lnk _multi( 'trcadv', zuu(:,:,:), 'U', -1., zvv(:,:,:), 'V', -1.)159 CALL lbc_lnk( 'trcadv', zuu(:,:,:), 'U', -1., zvv(:,:,:), 'V', -1.) 160 160 CALL lbc_lnk( 'traadv', ptr(:,:,:,:,Kbb), 'T', 1.) 161 161 END IF -
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP/TRP/trdmxl_trc.F90
r13497 r14676 419 419 !-- Lateral boundary conditions 420 420 IF ( cn_cfg .NE. 'gyre' ) THEN 421 CALL lbc_lnk _multi( 'trdmxl_trc', ztmltot(:,:,jn) , 'T', 1. , ztmlres(:,:,jn) , 'T', 1., &422 & ztmlatf(:,:,jn) , 'T', 1. , ztmlrad(:,:,jn) , 'T', 1. )421 CALL lbc_lnk( 'trdmxl_trc', ztmltot(:,:,jn) , 'T', 1. , ztmlres(:,:,jn) , 'T', 1., & 422 & ztmlatf(:,:,jn) , 'T', 1. , ztmlrad(:,:,jn) , 'T', 1. ) 423 423 ENDIF 424 424 … … 470 470 !-- Lateral boundary conditions 471 471 IF ( cn_cfg .NE. 'gyre' ) THEN ! other than GYRE configuration 472 CALL lbc_lnk _multi( 'trdmxl_trc', ztmltot2(:,:,jn), 'T', 1., ztmlres2(:,:,jn), 'T', 1. )472 CALL lbc_lnk( 'trdmxl_trc', ztmltot2(:,:,jn), 'T', 1., ztmlres2(:,:,jn), 'T', 1. ) 473 473 DO jl = 1, jpltrd_trc 474 474 CALL lbc_lnk( 'trdmxl_trc', ztmltrd2(:,:,jl,jn), 'T', 1. ) ! will be output in the NetCDF trends file -
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP/oce_trc.F90
r13333 r14676 19 19 USE par_oce , ONLY : jp_sal => jp_sal !: indice for salinity 20 20 USE par_oce , ONLY : nn_hls => nn_hls !: 21 USE par_oce , ONLY : Nis0 => Nis0 !: 22 USE par_oce , ONLY : Njs0 => Njs0 !: 23 USE par_oce , ONLY : Nie0 => Nie0 !: 24 USE par_oce , ONLY : Nje0 => Nje0 !: 25 USE par_oce , ONLY : Nis1 => Nis1 !: 26 USE par_oce , ONLY : Njs1 => Njs1 !: 27 USE par_oce , ONLY : Nie1 => Nie1 !: 28 USE par_oce , ONLY : Nje1 => Nje1 !: 29 USE par_oce , ONLY : Nis1nxt2 => Nis1nxt2 !: 30 USE par_oce , ONLY : Njs1nxt2 => Njs1nxt2 !: 31 USE par_oce , ONLY : Nie1nxt2 => Nie1nxt2 !: 32 USE par_oce , ONLY : Nje1nxt2 => Nje1nxt2 !: 33 USE par_oce , ONLY : Nis2 => Nis2 !: 34 USE par_oce , ONLY : Njs2 => Njs2 !: 35 USE par_oce , ONLY : Nie2 => Nie2 !: 36 USE par_oce , ONLY : Nje2 => Nje2 !: 37 USE par_oce , ONLY : Ni_0 => Ni_0 !: 38 USE par_oce , ONLY : Nj_0 => Nj_0 !: 39 USE par_oce , ONLY : Ni_1 => Ni_1 !: 40 USE par_oce , ONLY : Nj_1 => Nj_1 !: 41 USE par_oce , ONLY : Ni_2 => Ni_2 !: 42 USE par_oce , ONLY : Nj_2 => Nj_2 !: 21 USE par_oce , ONLY : Nis0 => Nis0 !: 22 USE par_oce , ONLY : Njs0 => Njs0 !: 23 USE par_oce , ONLY : Nie0 => Nie0 !: 24 USE par_oce , ONLY : Nje0 => Nje0 !: 25 USE par_oce , ONLY : Ni_0 => Ni_0 !: 26 USE par_oce , ONLY : Nj_0 => Nj_0 !: 43 27 44 28 USE in_out_manager !* IO manager * -
NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/TOP/trc.F90
r14032 r14676 82 82 CHARACTER(len=2), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: cn_trc_o !: choice of ocean tracer cc 83 83 84 !! Information for the optics module 85 !! --------------------------------- 86 INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:) :: neln !: number of T-levels + 1 in the euphotic layer 87 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup !: euphotic layer depth 88 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup_01 !: Absolute euphotic layer depth 89 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot !: par (photosynthetic available radiation) 90 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot_ndcy !: PAR over 24h in case of diurnal cycle 91 84 92 85 93 !! information for outputs … … 156 164 & gtrui(jpi,jpj,jptra) , gtrvi(jpi,jpj,jptra) , & 157 165 & trc_ice_ratio(jptra) , trc_ice_prescr(jptra) , cn_trc_o(jptra) , & 166 & neln(jpi,jpj) , heup(jpi,jpj) , heup_01(jpi,jpj) , & 167 & etot(jpi,jpj,jpk) , etot_ndcy(jpi,jpj,jpk) , & 158 168 & sbc_trc_b(jpi,jpj,jptra), sbc_trc(jpi,jpj,jptra) , & 159 169 & cvol(jpi,jpj,jpk) , trai(jptra) , qsr_mean(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.