Changeset 13808 for NEMO/branches/2020
- Timestamp:
- 2020-11-18T11:00:57+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src
- Files:
-
- 1 added
- 6 edited
-
OCE/SBC/sbcrnf.F90 (modified) (1 diff)
-
OCE/nemogcm.F90 (modified) (2 diffs)
-
TOP/TRP/trctrp.F90 (modified) (2 diffs)
-
TOP/trc.F90 (modified) (5 diffs)
-
TOP/trcais.F90 (added)
-
TOP/trcini.F90 (modified) (5 diffs)
-
TOP/trcnam.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/OCE/SBC/sbcrnf.F90
r13497 r13808 42 42 REAL(wp) :: rn_dep_max !: depth over which runoffs is spread (ln_rnf_depth_ini =T) 43 43 INTEGER :: nn_rnf_depth_file !: create (=1) a runoff depth file or not (=0) 44 LOGICAL 44 LOGICAL , PUBLIC :: ln_rnf_icb !: iceberg flux is specified in a file 45 45 LOGICAL :: ln_rnf_tem !: temperature river runoffs attribute specified in a file 46 46 LOGICAL , PUBLIC :: ln_rnf_sal !: salinity river runoffs attribute specified in a file -
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/OCE/nemogcm.F90
r13286 r13808 491 491 CALL dyn_spg_init ! surface pressure gradient 492 492 493 ! ! Icebergs 494 CALL icb_init( rn_Dt, nit000) ! initialise icebergs instance 495 496 ! ice shelf 497 CALL isf_init( Nbb, Nnn, Naa ) 493 498 #if defined key_top 494 499 ! ! Passive tracers … … 496 501 #endif 497 502 IF( l_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing 498 499 ! ! Icebergs500 CALL icb_init( rn_Dt, nit000) ! initialise icebergs instance501 502 ! ice shelf503 CALL isf_init( Nbb, Nnn, Naa )504 503 505 504 ! ! Misc. options -
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/TOP/TRP/trctrp.F90
r12377 r13808 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_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/TOP/trc.F90
r12489 r13808 40 40 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,: ) :: trc_o !: prescribed tracer concentration in ocean for SBC 41 41 INTEGER , PUBLIC :: nn_ice_tr !: handling of sea ice tracers 42 INTEGER , PUBLIC :: nn_ais_tr !: handling of Antarctic Ice Sheet tracers 42 43 43 44 !! interpolated gradient … … 65 66 LOGICAL , PUBLIC :: ln_trcdta !: Read inputs data from files 66 67 LOGICAL , PUBLIC :: ln_trcbc !: Enable surface, lateral or open boundaries conditions 68 LOGICAL , PUBLIC :: ln_trcais !: Enable Antarctic Ice Sheet nutrient supply 67 69 LOGICAL , PUBLIC :: ln_trcdmp !: internal damping flag 68 70 LOGICAL , PUBLIC :: ln_trcdmp_clo !: internal damping flag on closed seas … … 93 95 LOGICAL :: llcbc ! read in a file or not 94 96 LOGICAL :: llobc ! read in a file or not 97 LOGICAL :: llais ! read in a file or not 95 98 END TYPE PTRACER 96 99 ! … … 114 117 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_sbc !: Use surface boundary condition data 115 118 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_cbc !: Use coastal boundary condition data 119 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_ais !: Use Antarctic Ice Sheet boundary condition data 116 120 LOGICAL , PUBLIC :: ln_rnf_ctl !: remove runoff dilution on tracers 117 121 REAL(wp), PUBLIC :: rn_sbc_time !: Time scaling factor for SBC data (seconds in a day) … … 159 163 & ln_trc_ini(jptra) , & 160 164 & ln_trc_sbc(jptra) , ln_trc_cbc(jptra) , ln_trc_obc(jptra) , & 165 & ln_trc_ais(jptra) , & 161 166 & STAT = ierr(1) ) 162 167 ! -
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/TOP/trcini.F90
r13286 r13808 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_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/TOP/trcnam.F90
r12489 r13808 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
Note: See TracChangeset
for help on using the changeset viewer.
