- Timestamp:
- 2020-12-03T12:55:42+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/TOP
- Files:
-
- 6 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/TOP/PISCES/SED/sedrst.F90
r14037 r14044 94 94 CALL iom_init( cw_sedrst_cxt, kdid = numrsw, ld_closedef = .FALSE. ) 95 95 #else 96 clinfo = 'Can not use XIOS in trc_rst_opn' 97 CALL ctl_stop(TRIM(clinfo)) 96 CALL ctl_stop( 'Can not use XIOS in trc_rst_opn' ) 98 97 #endif 99 98 ENDIF 100 99 101 100 lrst_sed = .TRUE. -
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/TOP/TRP/trctrp.F90
r12377 r14044 24 24 USE trcsbc ! surface boundary condition (trc_sbc routine) 25 25 USE trcbc ! Tracers boundary condtions ( trc_bc routine) 26 USE trcais ! Antarctic Ice Sheet tracers (trc_ais routine) 26 27 USE zpshde ! partial step: hor. derivative (zps_hde routine) 27 28 USE bdy_oce , ONLY: ln_bdy … … 65 66 IF( ln_trcbc .AND. lltrcbc .AND. kt /= nit000 ) & 66 67 CALL trc_bc ( kt, Kmm, tr, Krhs ) ! tracers: surface and lateral Boundary Conditions 68 IF( ln_trcais ) CALL trc_ais ( kt, Kmm, tr, Krhs ) ! tracers from Antarctic Ice Sheet (icb, isf) 67 69 IF( ln_trabbl ) CALL trc_bbl ( kt, Kbb, Kmm, tr, Krhs ) ! advective (and/or diffusive) bottom boundary layer scheme 68 70 IF( ln_trcdmp ) CALL trc_dmp ( kt, Kbb, Kmm, tr, Krhs ) ! internal damping trends -
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/TOP/trc.F90
r14037 r14044 38 38 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,: ) :: trc_o !: prescribed tracer concentration in ocean for SBC 39 39 INTEGER , PUBLIC :: nn_ice_tr !: handling of sea ice tracers 40 INTEGER , PUBLIC :: nn_ais_tr !: handling of Antarctic Ice Sheet tracers 40 41 41 42 !! interpolated gradient … … 63 64 LOGICAL , PUBLIC :: ln_trcdta !: Read inputs data from files 64 65 LOGICAL , PUBLIC :: ln_trcbc !: Enable surface, lateral or open boundaries conditions 66 LOGICAL , PUBLIC :: ln_trcais !: Enable Antarctic Ice Sheet nutrient supply 65 67 LOGICAL , PUBLIC :: ln_trcdmp !: internal damping flag 66 68 LOGICAL , PUBLIC :: ln_trcdmp_clo !: internal damping flag on closed seas … … 91 93 LOGICAL :: llcbc ! read in a file or not 92 94 LOGICAL :: llobc ! read in a file or not 95 LOGICAL :: llais ! read in a file or not 93 96 END TYPE PTRACER 94 97 ! … … 112 115 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_sbc !: Use surface boundary condition data 113 116 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_cbc !: Use coastal boundary condition data 117 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_ais !: Use Antarctic Ice Sheet boundary condition data 114 118 LOGICAL , PUBLIC :: ln_rnf_ctl !: remove runoff dilution on tracers 115 119 REAL(wp), PUBLIC :: rn_sbc_time !: Time scaling factor for SBC data (seconds in a day) … … 157 161 & ln_trc_ini(jptra) , & 158 162 & ln_trc_sbc(jptra) , ln_trc_cbc(jptra) , ln_trc_obc(jptra) , & 163 & ln_trc_ais(jptra) , & 159 164 & STAT = ierr(1) ) 160 165 ! -
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/TOP/trcini.F90
r13286 r14044 25 25 USE trcice ! tracers in sea ice 26 26 USE trcbc ! generalized Boundary Conditions 27 USE trcais ! tracers from Antartic Ice Sheet 27 28 28 29 IMPLICIT NONE … … 166 167 ln_trc_cbc(jn) = sn_tracer(jn)%llcbc 167 168 ln_trc_obc(jn) = sn_tracer(jn)%llobc 169 ln_trc_ais(jn) = sn_tracer(jn)%llais 168 170 END DO 169 171 ! … … 188 190 WRITE(numout,*) 'trc_init_sms : Summary for selected passive tracers' 189 191 WRITE(numout,*) '~~~~~~~~~~~~' 190 WRITE(numout,*) ' ID NAME INI SBC CBC OBC '192 WRITE(numout,*) ' ID NAME INI SBC CBC OBC AIS' 191 193 DO jn = 1, jptra 192 WRITE(numout,9001) jn, TRIM(ctrcnm(jn)), ln_trc_ini(jn), ln_trc_sbc(jn),ln_trc_cbc(jn),ln_trc_obc(jn)194 WRITE(numout,9001) jn, TRIM(ctrcnm(jn)), ln_trc_ini(jn),ln_trc_sbc(jn),ln_trc_cbc(jn),ln_trc_obc(jn),ln_trc_ais(jn) 193 195 END DO 194 196 ENDIF … … 197 199 WRITE(numout,*) ' Applying tracer boundary conditions ' 198 200 ENDIF 201 ! 202 IF( lwp .AND. ln_trcais ) THEN 203 WRITE(numout,*) 204 WRITE(numout,*) ' Applying tracer from Antarctic Ice Sheet ' 205 ENDIF 199 206 200 9001 FORMAT(3x,i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2 )207 9001 FORMAT(3x,i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2,3x,l2) 201 208 ! 202 209 END SUBROUTINE trc_ini_sms … … 248 255 ENDIF 249 256 ! 257 IF( ln_trcais ) CALL trc_ais_ini ! set tracers from Antarctic Ice Sheet 250 258 ! 251 259 IF( ln_rsttr ) THEN ! restart from a file -
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/TOP/trcnam.F90
r12489 r14044 136 136 !! 137 137 NAMELIST/namtrc/jp_bgc, ln_pisces, ln_my_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, & 138 & sn_tracer, ln_trcdta, ln_trcbc, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d 138 & sn_tracer, ln_trcdta, ln_trcbc, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d, & 139 & ln_trcais 139 140 !!--------------------------------------------------------------------- 140 141 ! Dummy settings to fill tracers data structure 141 ! ! name ! title ! unit ! init ! sbc ! cbc ! obc !142 sn_tracer = PTRACER( 'NONAME' , 'NOTITLE' , 'NOUNIT' , .false. , .false. , .false. , .false. )142 ! ! name ! title ! unit ! init ! sbc ! cbc ! obc ! ais ! 143 sn_tracer = PTRACER( 'NONAME' , 'NOTITLE' , 'NOUNIT' , .false. , .false. , .false. , .false. , .false. ) 143 144 ! 144 145 IF(lwp) WRITE(numout,*) … … 209 210 WRITE(numout,*) ' Read inputs data from file (y/n) ln_trcdta = ', ln_trcdta 210 211 WRITE(numout,*) ' Enable surface, lateral or open boundaries conditions (y/n) ln_trcbc = ', ln_trcbc 212 WRITE(numout,*) ' Enable Antarctic Ice Sheet nutrient supply ln_trcais = ', ln_trcais 211 213 WRITE(numout,*) ' Damping of passive tracer (y/n) ln_trcdmp = ', ln_trcdmp 212 214 WRITE(numout,*) ' Restoring of tracer on closed seas ln_trcdmp_clo = ', ln_trcdmp_clo -
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/TOP/trcrst.F90
r14037 r14044 105 105 CALL iom_init( cw_toprst_cxt, kdid = numrtw, ld_closedef = .FALSE. ) 106 106 #else 107 clinfo = 'Can not use XIOS in trc_rst_opn' 108 CALL ctl_stop(TRIM(clinfo)) 107 CALL ctl_stop( 'Can not use XIOS in trc_rst_opn' ) 109 108 #endif 110 109 ENDIF 111 110 lrst_trc = .TRUE. 112 111 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.