- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 5 edited
-
. (modified) (1 prop)
-
src/TOP/CFC/trcini_cfc.F90 (modified) (5 diffs)
-
src/TOP/CFC/trcnam_cfc.F90 (modified) (1 diff)
-
src/TOP/CFC/trcsms_cfc.F90 (modified) (7 diffs)
-
src/TOP/CFC/trcwri_cfc.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- 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 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/TOP/CFC/trcini_cfc.F90
r10068 r13463 24 24 REAL(wp) :: ylatn = 10. ! 10 degrees north 25 25 26 !! * Substitutions 27 # include "do_loop_substitute.h90" 26 28 !!---------------------------------------------------------------------- 27 29 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 31 33 CONTAINS 32 34 33 SUBROUTINE trc_ini_cfc 35 SUBROUTINE trc_ini_cfc( Kmm ) 34 36 !!---------------------------------------------------------------------- 35 37 !! *** trc_ini_cfc *** … … 39 41 !! ** Method : - Read the namcfc namelist and check the parameter values 40 42 !!---------------------------------------------------------------------- 43 INTEGER, INTENT(in) :: Kmm ! time level indices 41 44 INTEGER :: ji, jj, jn, jl, jm, js, io, ierr 42 INTEGER :: iskip = 6 ! number of 1st descriptor lines45 INTEGER :: iskip = 6 ! number of 1st descriptor lines 43 46 REAL(wp) :: zyy, zyd 44 47 CHARACTER(len = 20) :: cltra … … 90 93 DO jl = 1, jp_cfc 91 94 jn = jp_cfc0 + jl - 1 92 tr n(:,:,:,jn) = 0._wp95 tr(:,:,:,jn,Kmm) = 0._wp 93 96 END DO 94 97 ENDIF … … 129 132 !--------------------------------------------------------------------------------------- 130 133 zyd = ylatn - ylats 131 DO jj = 1 , jpj 132 DO ji = 1 , jpi 133 IF( gphit(ji,jj) >= ylatn ) THEN ; xphem(ji,jj) = 1.e0 134 ELSEIF( gphit(ji,jj) <= ylats ) THEN ; xphem(ji,jj) = 0.e0 135 ELSE ; xphem(ji,jj) = ( gphit(ji,jj) - ylats) / zyd 136 ENDIF 137 END DO 138 END DO 134 DO_2D( 1, 1, 1, 1 ) 135 IF( gphit(ji,jj) >= ylatn ) THEN ; xphem(ji,jj) = 1.e0 136 ELSEIF( gphit(ji,jj) <= ylats ) THEN ; xphem(ji,jj) = 0.e0 137 ELSE ; xphem(ji,jj) = ( gphit(ji,jj) - ylats) / zyd 138 ENDIF 139 END_2D 139 140 ! 140 141 IF(lwp) WRITE(numout,*) 'Initialization of CFC tracers done' -
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/TOP/CFC/trcnam_cfc.F90
r10068 r13463 51 51 ENDIF 52 52 ! 53 REWIND( numtrc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters54 53 READ ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 55 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist', lwp ) 56 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist : CFC parameters 54 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist' ) 57 55 READ ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 ) 58 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist' , lwp)56 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist' ) 59 57 IF(lwm) WRITE( numonr, namcfc ) 60 58 IF(lwm) CALL FLUSH ( numonr ) ! flush output namelist CFC -
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/TOP/CFC/trcsms_cfc.F90
r10425 r13463 47 47 REAL(wp) :: xconv4 = 1.0e-12 ! conversion from mol/m3/atm to mol/m3/pptv 48 48 49 !! * Substitutions 50 # include "do_loop_substitute.h90" 51 # include "domzgr_substitute.h90" 49 52 !!---------------------------------------------------------------------- 50 53 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 54 57 CONTAINS 55 58 56 SUBROUTINE trc_sms_cfc( kt )59 SUBROUTINE trc_sms_cfc( kt, Kbb, Kmm, Krhs ) 57 60 !!---------------------------------------------------------------------- 58 61 !! *** ROUTINE trc_sms_cfc *** … … 70 73 !! CFC concentration in pico-mol/m3 71 74 !!---------------------------------------------------------------------- 72 INTEGER, INTENT(in) :: kt ! ocean time-step index 75 INTEGER, INTENT(in) :: kt ! ocean time-step index 76 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! ocean time level 73 77 ! 74 78 INTEGER :: ji, jj, jn, jl, jm … … 105 109 im2 = nmonth - 7 106 110 ENDIF 111 ! Avoid bad interpolation if starting date is =< 1900 112 IF( iyear_beg .LE. 0 ) iyear_beg = 1 113 IF( iyear_beg .GE. jpyear ) iyear_beg = jpyear - 1 114 ! 107 115 iyear_end = iyear_beg + 1 108 116 … … 118 126 119 127 ! !------------! 120 DO jj = 1, jpj ! i-j loop ! 121 DO ji = 1, jpi !------------! 128 DO_2D( 1, 1, 1, 1 ) 122 129 123 ! space interpolation 124 zpp_cfc = xphem(ji,jj) * zpatm(1,jl) & 125 & + ( 1.- xphem(ji,jj) ) * zpatm(2,jl) 126 127 ! Computation of concentration at equilibrium : in picomol/l 128 ! coefficient for solubility for CFC-11/12 in mol/l/atm 129 IF( tmask(ji,jj,1) .GE. 0.5 ) THEN 130 ztap = ( tsn(ji,jj,1,jp_tem) + 273.16 ) * 0.01 131 zdtap = sob(1,jl) + ztap * ( sob(2,jl) + ztap * sob(3,jl) ) 132 zsol = EXP( soa(1,jl) + soa(2,jl) / ztap + soa(3,jl) * LOG( ztap ) & 133 & + soa(4,jl) * ztap * ztap + tsn(ji,jj,1,jp_sal) * zdtap ) 134 ELSE 135 zsol = 0.e0 136 ENDIF 137 ! conversion from mol/l/atm to mol/m3/atm and from mol/m3/atm to mol/m3/pptv 138 zsol = xconv4 * xconv3 * zsol * tmask(ji,jj,1) 139 ! concentration at equilibrium 140 zca_cfc = xconv1 * zpp_cfc * zsol * tmask(ji,jj,1) 141 142 ! Computation of speed transfert 143 ! Schmidt number revised in Wanninkhof (2014) 144 zt1 = tsn(ji,jj,1,jp_tem) 145 zt2 = zt1 * zt1 146 zt3 = zt1 * zt2 147 zt4 = zt2 * zt2 148 zsch = sca(1,jl) + sca(2,jl) * zt1 + sca(3,jl) * zt2 + sca(4,jl) * zt3 + sca(5,jl) * zt4 149 150 ! speed transfert : formulae revised in Wanninkhof (2014) 151 zv2 = wndm(ji,jj) * wndm(ji,jj) 152 zsch = zsch / 660. 153 zak_cfc = ( 0.251 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1) 154 155 ! Input function : speed *( conc. at equil - concen at surface ) 156 ! trn in pico-mol/l idem qtr; ak in en m/a 157 qtr_cfc(ji,jj,jl) = -zak_cfc * ( trb(ji,jj,1,jn) - zca_cfc ) & 158 & * tmask(ji,jj,1) * ( 1. - fr_i(ji,jj) ) 159 ! Add the surface flux to the trend 160 tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + qtr_cfc(ji,jj,jl) / e3t_n(ji,jj,1) 161 162 ! cumulation of surface flux at each time step 163 qint_cfc(ji,jj,jl) = qint_cfc(ji,jj,jl) + qtr_cfc(ji,jj,jl) * rdt 164 ! !----------------! 165 END DO ! end i-j loop ! 166 END DO !----------------! 130 ! space interpolation 131 zpp_cfc = xphem(ji,jj) * zpatm(1,jl) & 132 & + ( 1.- xphem(ji,jj) ) * zpatm(2,jl) 133 134 ! Computation of concentration at equilibrium : in picomol/l 135 ! coefficient for solubility for CFC-11/12 in mol/l/atm 136 IF( tmask(ji,jj,1) .GE. 0.5 ) THEN 137 ztap = ( ts(ji,jj,1,jp_tem,Kmm) + 273.16 ) * 0.01 138 zdtap = sob(1,jl) + ztap * ( sob(2,jl) + ztap * sob(3,jl) ) 139 zsol = EXP( soa(1,jl) + soa(2,jl) / ztap + soa(3,jl) * LOG( ztap ) & 140 & + soa(4,jl) * ztap * ztap + ts(ji,jj,1,jp_sal,Kmm) * zdtap ) 141 ELSE 142 zsol = 0.e0 143 ENDIF 144 ! conversion from mol/l/atm to mol/m3/atm and from mol/m3/atm to mol/m3/pptv 145 zsol = xconv4 * xconv3 * zsol * tmask(ji,jj,1) 146 ! concentration at equilibrium 147 zca_cfc = xconv1 * zpp_cfc * zsol * tmask(ji,jj,1) 148 ! Computation of speed transfert 149 ! Schmidt number revised in Wanninkhof (2014) 150 zt1 = ts(ji,jj,1,jp_tem,Kmm) 151 zt2 = zt1 * zt1 152 zt3 = zt1 * zt2 153 zt4 = zt2 * zt2 154 zsch = sca(1,jl) + sca(2,jl) * zt1 + sca(3,jl) * zt2 + sca(4,jl) * zt3 + sca(5,jl) * zt4 155 156 ! speed transfert : formulae revised in Wanninkhof (2014) 157 zv2 = wndm(ji,jj) * wndm(ji,jj) 158 zsch = zsch / 660. 159 zak_cfc = ( 0.251 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1) 160 161 ! Input function : speed *( conc. at equil - concen at surface ) 162 ! tr(:,:,:,:,Kmm) in pico-mol/l idem qtr; ak in en m/a 163 qtr_cfc(ji,jj,jl) = -zak_cfc * ( tr(ji,jj,1,jn,Kbb) - zca_cfc ) & 164 & * tmask(ji,jj,1) * ( 1. - fr_i(ji,jj) ) 165 ! Add the surface flux to the trend 166 tr(ji,jj,1,jn,Krhs) = tr(ji,jj,1,jn,Krhs) + qtr_cfc(ji,jj,jl) / e3t(ji,jj,1,Kmm) 167 168 ! cumulation of surface flux at each time step 169 qint_cfc(ji,jj,jl) = qint_cfc(ji,jj,jl) + qtr_cfc(ji,jj,jl) * rn_Dt 170 ! !----------------! 171 END_2D 167 172 ! !----------------! 168 173 END DO ! end CFC loop ! … … 191 196 IF( l_trdtrc ) THEN 192 197 DO jn = jp_cfc0, jp_cfc1 193 CALL trd_trc( tr a(:,:,:,jn), jn, jptra_sms, kt) ! save trends198 CALL trd_trc( tr(:,:,:,jn,Krhs), jn, jptra_sms, kt, Kmm ) ! save trends 194 199 END DO 195 200 END IF … … 293 298 DO jn = jp_cfc0, jp_cfc1 294 299 jl = jl + 1 295 CALL iom_get( numrtr, jpdom_auto glo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) )300 CALL iom_get( numrtr, jpdom_auto, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) ) 296 301 END DO 297 302 ENDIF -
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/TOP/CFC/trcwri_cfc.F90
r10069 r13463 20 20 CONTAINS 21 21 22 SUBROUTINE trc_wri_cfc 22 SUBROUTINE trc_wri_cfc( Kmm ) 23 23 !!--------------------------------------------------------------------- 24 24 !! *** ROUTINE trc_wri_trc *** … … 26 26 !! ** Purpose : output passive tracers fields 27 27 !!--------------------------------------------------------------------- 28 INTEGER, INTENT(in) :: Kmm ! time level indices 28 29 CHARACTER (len=20) :: cltra 29 30 INTEGER :: jn … … 34 35 DO jn = jp_cfc0, jp_cfc1 35 36 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 36 CALL iom_put( cltra, tr n(:,:,:,jn) )37 CALL iom_put( cltra, tr(:,:,:,jn,Kmm) ) 37 38 END DO 38 39 !
Note: See TracChangeset
for help on using the changeset viewer.
