Changeset 772 for branches/dev_001_GM
- Timestamp:
- 2007-12-17T12:59:33+01:00 (16 years ago)
- Location:
- branches/dev_001_GM/NEMO/TOP_SRC
- Files:
-
- 73 edited
-
CFC/par_cfc.F90 (modified) (1 diff)
-
LOBSTER/par_lobster.F90 (modified) (2 diffs)
-
LOBSTER/trcbio.F (modified) (2 diffs)
-
LOBSTER/trcexp.F (modified) (1 diff)
-
LOBSTER/trcini_lobster.F90 (modified) (1 diff)
-
LOBSTER/trclsm_lobster.F90 (modified) (1 diff)
-
LOBSTER/trcopt.F (modified) (1 diff)
-
LOBSTER/trcsed.F (modified) (1 diff)
-
PISCES/par_pisces.F90 (modified) (3 diffs)
-
PISCES/sms_pisces.h90 (modified) (1 diff)
-
PISCES/trcctl.pisces.h90 (modified) (1 diff)
-
PISCES/trcini_pisces.F90 (modified) (3 diffs)
-
PISCES/trclsm_pisces.F90 (modified) (4 diffs)
-
PISCES_SMS/p4zbio.F (modified) (5 diffs)
-
PISCES_SMS/p4zche.F (modified) (1 diff)
-
PISCES_SMS/p4zday.F (modified) (1 diff)
-
PISCES_SMS/p4zdiat.F (modified) (1 diff)
-
PISCES_SMS/p4zflx.F (modified) (1 diff)
-
PISCES_SMS/p4zint.F (modified) (1 diff)
-
PISCES_SMS/p4zlim.F (modified) (1 diff)
-
PISCES_SMS/p4zlys.F (modified) (1 diff)
-
PISCES_SMS/p4zmeso.F (modified) (3 diffs)
-
PISCES_SMS/p4zmicro.F (modified) (1 diff)
-
PISCES_SMS/p4znano.F (modified) (1 diff)
-
PISCES_SMS/p4zopt.F (modified) (1 diff)
-
PISCES_SMS/p4zprg.F (modified) (1 diff)
-
PISCES_SMS/p4zprod.F (modified) (1 diff)
-
PISCES_SMS/p4zrem.F (modified) (4 diffs)
-
PISCES_SMS/p4zsed.F (modified) (5 diffs)
-
PISCES_SMS/p4zsink.F (modified) (2 diffs)
-
PISCES_SMS/p4zsink2.F (modified) (1 diff)
-
PISCES_SMS/p4zslow.F (modified) (1 diff)
-
TRP/trcadv_cen2.F90 (modified) (3 diffs)
-
TRP/trcadv_muscl.F90 (modified) (1 diff)
-
TRP/trcadv_muscl2.F90 (modified) (1 diff)
-
TRP/trcadv_smolar.F90 (modified) (1 diff)
-
TRP/trcadv_tvd.F90 (modified) (3 diffs)
-
TRP/trcbbc.F90 (modified) (1 diff)
-
TRP/trcbbl.F90 (modified) (1 diff)
-
TRP/trcdmp.F90 (modified) (1 diff)
-
TRP/trcldf_bilap.F90 (modified) (1 diff)
-
TRP/trcldf_bilapg.F90 (modified) (1 diff)
-
TRP/trcldf_iso.F90 (modified) (1 diff)
-
TRP/trcldf_iso_zps.F90 (modified) (1 diff)
-
TRP/trcldf_lap.F90 (modified) (1 diff)
-
TRP/trcnxt.F90 (modified) (1 diff)
-
TRP/trcrad.F90 (modified) (4 diffs)
-
TRP/trcsbc.F90 (modified) (1 diff)
-
TRP/trctrp.F90 (modified) (1 diff)
-
TRP/trctrp_ctl.F90 (modified) (1 diff)
-
TRP/trctrp_lec.F90 (modified) (1 diff)
-
TRP/trczdf_exp.F90 (modified) (1 diff)
-
TRP/trczdf_imp.F90 (modified) (1 diff)
-
TRP/trczdf_iso.F90 (modified) (1 diff)
-
TRP/trczdf_iso_vopt.F90 (modified) (1 diff)
-
TRP/zpshde_trc.F90 (modified) (1 diff)
-
initrc.F90 (modified) (2 diffs)
-
oce_trc.F90 (modified) (1 diff)
-
prtctl_trc.F90 (modified) (1 diff)
-
sms.F90 (modified) (2 diffs)
-
trc.F90 (modified) (1 diff)
-
trcctl.F90 (modified) (2 diffs)
-
trcdia.F90 (modified) (1 diff)
-
trcdit.F90 (modified) (2 diffs)
-
trcdta.F90 (modified) (3 diffs)
-
trcdtr.F90 (modified) (7 diffs)
-
trcini.F90 (modified) (1 diff)
-
trclec.F90 (modified) (1 diff)
-
trclsm.F90 (modified) (2 diffs)
-
trcrst.F90 (modified) (6 diffs)
-
trcsms.F90 (modified) (4 diffs)
-
trcstp.F90 (modified) (1 diff)
-
trp_trc.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/CFC/par_cfc.F90
r769 r772 22 22 !! 'key_cfc' : CFC tracers 23 23 !!--------------------------------------------------------------------- 24 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_cfc = .TRUE.!: CFC flag25 INTEGER, PUBLIC, PARAMETER :: jp_cfc = 2 26 INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 1 27 INTEGER, PUBLIC, PARAMETER :: jp_cfc_3d = 1 28 INTEGER, PUBLIC, PARAMETER :: jp_cfc_trd = 0 24 LOGICAL, PUBLIC, PARAMETER :: lk_cfc = .TRUE. !: CFC flag 25 INTEGER, PUBLIC, PARAMETER :: jp_cfc = 2 !: number of passive tracers 26 INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 1 !: additional 2d output arrays ('key_trc_diaadd') 27 INTEGER, PUBLIC, PARAMETER :: jp_cfc_3d = 1 !: additional 3d output arrays ('key_trc_diaadd') 28 INTEGER, PUBLIC, PARAMETER :: jp_cfc_trd = 0 !: number of sms trends for CFC 29 29 30 30 ! assign an index in trc arrays for each CFC prognostic variables 31 INTEGER, PUBLIC, PARAMETER :: jp11 = jp_lp + 1 32 INTEGER, PUBLIC, PARAMETER :: jp12 = jp_lp + 2 31 INTEGER, PUBLIC, PARAMETER :: jp11 = jp_lp + 1 !: CFC-11 32 INTEGER, PUBLIC, PARAMETER :: jp12 = jp_lp + 2 !: CFC-12 33 33 #else 34 34 !!--------------------------------------------------------------------- 35 35 !! Default : No CFC tracers 36 36 !!--------------------------------------------------------------------- 37 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_cfc = .FALSE.!: CFC flag38 INTEGER, PUBLIC, PARAMETER :: jp_cfc = 0 39 INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 0 40 INTEGER, PUBLIC, PARAMETER :: jp_cfc_3d = 0 41 INTEGER, PUBLIC, PARAMETER :: jp_cfc_trd = 0 37 LOGICAL, PUBLIC, PARAMETER :: lk_cfc = .FALSE. !: CFC flag 38 INTEGER, PUBLIC, PARAMETER :: jp_cfc = 0 !: No CFC tracers 39 INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 0 !: No CFC additional 2d output arrays 40 INTEGER, PUBLIC, PARAMETER :: jp_cfc_3d = 0 !: No CFC additional 3d output arrays 41 INTEGER, PUBLIC, PARAMETER :: jp_cfc_trd = 0 !: number of sms trends for CFC 42 42 #endif 43 43 -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/par_lobster.F90
r771 r772 14 14 PUBLIC 15 15 16 #if defined key_ trc_lobster116 #if defined key_lobster 17 17 !!--------------------------------------------------------------------- 18 !! 'key_ trc_lobster1' : LOBSTERmodel18 !! 'key_lobster' : LOBSTER bio-model 19 19 !!--------------------------------------------------------------------- 20 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_lobster= .TRUE. !: LOBSTER flag20 LOGICAL, PUBLIC, PARAMETER :: lk_lobster = .TRUE. !: LOBSTER flag 21 21 INTEGER, PUBLIC, PARAMETER :: jp_lobster = 6 !: number of LOBSTER tracers 22 22 INTEGER, PUBLIC, PARAMETER :: jp_lobster_2d = 19 !: additional 2d output arrays ('key_trc_diaadd') … … 40 40 !! Default No LOBSTER model 41 41 !!--------------------------------------------------------------------- 42 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_lobster= .FALSE. !: LOBSTER flag42 LOGICAL, PUBLIC, PARAMETER :: lk_lobster = .FALSE. !: LOBSTER flag 43 43 INTEGER, PUBLIC, PARAMETER :: jp_lobster = 0 !: No LOBSTER tracers 44 44 INTEGER, PUBLIC, PARAMETER :: jp_lobster_2d = 0 !: No LOBSTER additional 2d output arrays -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcbio.F
r764 r772 5 5 C --------------------------------------------------------------------------- 6 6 SUBROUTINE trcbio(kt) 7 #if defined key_ passivetrc && defined key_trc_lobster17 #if defined key_top && defined key_lobster 8 8 CCC--------------------------------------------------------------------- 9 9 CCC … … 18 18 CCC Three options: 19 19 CCC Default option : no biological trend 20 CCC IF 'key_ trc_lobster1' : LOBSTER1model20 CCC IF 'key_lobster' : LOBSTER1 bio-model 21 21 CCC 22 22 CC METHOD : -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcexp.F
r764 r772 1 1 CCC $Header$ 2 2 SUBROUTINE trcexp(kt) 3 #if defined key_ passivetrc && defined key_trc_lobster13 #if defined key_top && defined key_lobster 4 4 CCC--------------------------------------------------------------------- 5 5 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90
r771 r772 10 10 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcini.lobster1.h90 11 11 !!---------------------------------------------------------------------- 12 #if defined key_ trc_lobster112 #if defined key_lobster 13 13 !!---------------------------------------------------------------------- 14 !! 'key_ trc_lobster1' LOBSTERmodel14 !! 'key_lobster' LOBSTER bio-model 15 15 !!---------------------------------------------------------------------- 16 16 !! trc_ini_lobster : LOBSTER model initialisation -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trclsm_lobster.F90
r768 r772 6 6 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) from trclsm.lobster1.h90 7 7 !!---------------------------------------------------------------------- 8 #if defined key_ trc_lobster19 !!---------------------------------------------------------------------- 10 !! 'key_ trc_lobster1' :LOBSTER bio-model8 #if defined key_lobster 9 !!---------------------------------------------------------------------- 10 !! 'key_lobster' : LOBSTER bio-model 11 11 !!---------------------------------------------------------------------- 12 12 !! trc_lsm_lobster : LOBSTER model namelist read -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcopt.F
r764 r772 83 83 INTEGER kt 84 84 85 #if defined key_ passivetrc && defined key_trc_lobster185 #if defined key_top && defined key_lobster 86 86 C 87 87 INTEGER ji,jj,jk,jn,in -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcsed.F
r764 r772 82 82 INTEGER kt 83 83 84 #if defined key_ passivetrc && defined key_trc_lobster184 #if defined key_top && defined key_lobster 85 85 86 86 INTEGER ji,jj,jk -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES/par_pisces.F90
r771 r772 17 17 INTEGER, PUBLIC, PARAMETER :: jp_l = jp_lobster !: cumulative number of already defined TRC 18 18 19 #if defined key_ trc_pisces && defined key_trc_kriest19 #if defined key_pisces && defined key_kriest 20 20 !!--------------------------------------------------------------------- 21 !! 'key_ trc_pisces' & 'key_trc_kriest'PISCES bio-model + ???21 !! 'key_pisces' & 'key_kriest' PISCES bio-model + ??? 22 22 !!--------------------------------------------------------------------- 23 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_pisces= .TRUE. !: PISCES flag24 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_kriest= .TRUE. !: Kriest flag23 LOGICAL, PUBLIC, PARAMETER :: lk_pisces = .TRUE. !: PISCES flag 24 LOGICAL, PUBLIC, PARAMETER :: lk_kriest = .TRUE. !: Kriest flag 25 25 INTEGER, PUBLIC, PARAMETER :: jp_pisces = 23 !: number of passive tracers 26 26 INTEGER, PUBLIC, PARAMETER :: jp_pisces_2d = 13 !: additional 2d output ('key_trc_diaadd') … … 55 55 INTEGER, PUBLIC, PARAMETER :: jpnh4 = jp_l + 23 !: Ammonium Concentration 56 56 57 #elif defined key_ trc_pisces57 #elif defined key_pisces 58 58 !!--------------------------------------------------------------------- 59 !! 'key_ trc_pisces' :standard PISCES bio-model59 !! 'key_pisces' : standard PISCES bio-model 60 60 !!--------------------------------------------------------------------- 61 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_pisces= .TRUE. !: PISCES flag62 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_kriest= .FALSE. !: Kriest flag61 LOGICAL, PUBLIC, PARAMETER :: lk_pisces = .TRUE. !: PISCES flag 62 LOGICAL, PUBLIC, PARAMETER :: lk_kriest = .FALSE. !: Kriest flag 63 63 INTEGER, PUBLIC, PARAMETER :: jp_pisces = 24 !: number of PISCES passive tracers 64 64 INTEGER, PUBLIC, PARAMETER :: jp_pisces_2d = 13 !: additional 2d output ('key_trc_diaadd') … … 98 98 !! Default No CFC geochemical model 99 99 !!--------------------------------------------------------------------- 100 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_pisces= .FALSE. !: CFC flag101 LOGICAL, PUBLIC, PARAMETER :: lk_ trc_kriest= .FALSE. !: Kriest flag100 LOGICAL, PUBLIC, PARAMETER :: lk_pisces = .FALSE. !: CFC flag 101 LOGICAL, PUBLIC, PARAMETER :: lk_kriest = .FALSE. !: Kriest flag 102 102 INTEGER, PUBLIC, PARAMETER :: jp_pisces = 0 !: No CFC tracers 103 103 INTEGER, PUBLIC, PARAMETER :: jp_pisces_2d = 0 !: No CFC additional 2d output arrays -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES/sms_pisces.h90
r764 r772 138 138 REAL(wp), DIMENSION(jpi,jpj,jpk) :: onitr, denitr, ironsed !: ??? 139 139 140 #if defined key_ trc_kriest140 #if defined key_kriest 141 141 !!--------------------------------------------------------- 142 142 !! Kriest parameter for aggregation -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcctl.pisces.h90
r764 r772 17 17 ! Check number of tracers 18 18 ! ----------------------- 19 #if defined key_ trc_kriest19 #if defined key_kriest 20 20 IF( jptra /= 23) THEN 21 21 #else -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r771 r772 10 10 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcini.pisces.h90 11 11 !!---------------------------------------------------------------------- 12 #if defined key_ trc_pisces13 !!---------------------------------------------------------------------- 14 !! 'key_ trc_pisces'PISCES bio-model12 #if defined key_pisces 13 !!---------------------------------------------------------------------- 14 !! 'key_pisces' PISCES bio-model 15 15 !!---------------------------------------------------------------------- 16 16 !! trc_ini_pisces : PISCES biochemical model initialisation … … 54 54 INTEGER :: numlight 55 55 56 #if defined key_ trc_kriest56 #if defined key_kriest 57 57 INTEGER :: jn, kiter 58 58 REAL(wp) :: znum, zdiv … … 201 201 202 202 203 #if defined key_ trc_kriest203 #if defined key_kriest 204 204 !!--------------------------------------------------------------------- 205 !! 'key_ trc_kriest'???205 !! 'key_kriest' ??? 206 206 !!--------------------------------------------------------------------- 207 207 ! COMPUTATION OF THE VERTICAL PROFILE OF MAXIMUM SINKING SPEED -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90
r768 r772 8 8 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) from trclsm.pisces.h90 9 9 !!---------------------------------------------------------------------- 10 #if defined key_ trc_pisces11 !!---------------------------------------------------------------------- 12 !! 'key_ trc_pisces' :PISCES bio-model10 #if defined key_pisces 11 !!---------------------------------------------------------------------- 12 !! 'key_pisces' : PISCES bio-model 13 13 !!---------------------------------------------------------------------- 14 14 !! trc_lsm_pisces : PISCES model namelist read … … 40 40 !! ** input : file 'namelist.trc.sms' containing the following 41 41 !! namelist: natext, natbio, natsms 42 !! natkriest ("key_ trc_kriest")42 !! natkriest ("key_kriest") 43 43 !!---------------------------------------------------------------------- 44 44 CHARACTER (len=32) :: clname … … 57 57 & chlcnm,chlcdm, sedfeinput 58 58 NAMELIST/natsms/bdustfer, briver, bndepo, bsedinput 59 #if defined key_ trc_kriest59 #if defined key_kriest 60 60 NAMELIST/natkriest/ xkr_eta , xkr_zeta , xkr_sfact, xkr_mass_min, xkr_mass_max, & 61 61 & xkr_dnano, xkr_ddiat, xkr_dmeso, xkr_daggr , xkr_stick … … 170 170 ENDIF 171 171 172 #if defined key_ trc_kriest172 #if defined key_kriest 173 173 174 174 ! ! natkriest : kriest parameters -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zbio.F
r719 r772 6 6 SUBROUTINE p4zbio 7 7 CDIR$ LIST 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC ------------------------------------------------------------------ 10 10 CCC … … 45 45 REAL prodca,ztemp 46 46 47 #if ! defined key_ trc_kriest47 #if ! defined key_kriest 48 48 REAL zdenom2(jpi,jpj,jpk) 49 49 #else … … 73 73 DO jj=1,jpj 74 74 DO ji=1,jpi 75 #if ! defined key_ trc_kriest75 #if ! defined key_kriest 76 76 zdenom=1./(trn(ji,jj,jk,jppoc)+trn(ji,jj,jk,jpgoc) 77 77 $ +trn(ji,jj,jk,jpdsi)+trn(ji,jj,jk,jpcal)+rtrn) … … 273 273 274 274 275 #if defined key_ trc_kriest275 #if defined key_kriest 276 276 277 277 #include "p4zbio.kriest.h" … … 426 426 trc3d(:,:,:,9)=prorca3(:,:,:)*znegtr(:,:,:)*1e3*rfact2r 427 427 trc3d(:,:,:,10)=prorca4(:,:,:)*znegtr(:,:,:)*1e3*rfact2r 428 #if ! defined key_ trc_kriest428 #if ! defined key_kriest 429 429 trc3d(:,:,:,11)=prorca5(:,:,:)*znegtr(:,:,:)*1e3*rfact2r 430 430 #else -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zche.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zche 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zday.F
r719 r772 5 5 CDIR$ LIST 6 6 SUBROUTINE p4zday 7 #if defined key_ passivetrc && defined key_trc_pisces7 #if defined key_top && defined key_pisces 8 8 CCC--------------------------------------------------------------------- 9 9 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zdiat.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zdiat 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zflx.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zflx 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zint.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zint(kt) 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zlim.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zlim 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zlys.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zlys 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zmeso.F
r726 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zmeso 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC … … 146 146 C ---------------------------------- 147 147 C 148 #if ! defined key_ trc_kriest148 #if ! defined key_kriest 149 149 grazffe(ji,jj,jk) = 5E3*zstep*wsbio4(ji,jj,jk) 150 150 & *tgfunc2(ji,jj,jk)*trn(ji,jj,jk,jpgoc)*trn(ji,jj,jk,jpmes) … … 190 190 & +grazn(ji,jj,jk)+grazpoc(ji,jj,jk)+grazffe(ji,jj,jk)) 191 191 & *(1.-epsher2-unass2) 192 #if ! defined key_ trc_kriest192 #if ! defined key_kriest 193 193 grafer2(ji,jj,jk)=(grazf(ji,jj,jk)+graznf(ji,jj,jk) 194 194 & +grazz(ji,jj,jk)*ferat3+grazpof(ji,jj,jk) -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zmicro.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zmicro 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4znano.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4znano 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zopt.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zopt 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zprg.F
r719 r772 55 55 56 56 INTEGER kt 57 #if defined key_ passivetrc && defined key_trc_pisces57 #if defined key_top && defined key_pisces 58 58 INTEGER jnt, jn 59 59 -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zprod.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zprod 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zrem.F
r725 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zrem 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC … … 181 181 orem(ji,jj,jk)=remip*trn(ji,jj,jk,jppoc) 182 182 ofer(ji,jj,jk)=remip*trn(ji,jj,jk,jpsfe) 183 #if ! defined key_ trc_kriest183 #if ! defined key_kriest 184 184 orem2(ji,jj,jk)=remip*trn(ji,jj,jk,jpgoc) 185 185 ofer2(ji,jj,jk)=remip*trn(ji,jj,jk,jpbfe) … … 231 231 & +4.*trn(ji,jj,jk,jpfer)*xkeq))/(2.*xkeq) 232 232 233 #if ! defined key_ trc_kriest233 #if ! defined key_kriest 234 234 xlam1b=3E-5+xlam1*(trn(ji,jj,jk,jppoc) 235 235 & +trn(ji,jj,jk,jpgoc)+trn(ji,jj,jk,jpcal)+ … … 251 251 zlamfac=max(0.,(gphit(ji,jj)+55.)/30.) 252 252 zlamfac=min(1.,zlamfac) 253 #if ! defined key_ trc_kriest253 #if ! defined key_kriest 254 254 xlam1b=(80.*(trn(ji,jj,jk,jpdoc)+35E-6)+698. 255 255 & *trn(ji,jj,jk,jppoc)+1.05E4*trn(ji,jj,jk,jpgoc)) -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zsed.F
r728 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zsed 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC … … 145 145 zfact=e1t(ji,jj)*e2t(ji,jj)/rjjss*tmask_i(ji,jj) 146 146 sumsedsi=sumsedsi+zfact*trn(ji,jj,ikt,jpdsi) 147 #if ! defined key_ trc_kriest147 #if ! defined key_kriest 148 148 & *wsbio4(ji,jj,ikt) 149 149 #else … … 152 152 sumsedcal=sumsedcal+trn(ji,jj,ikt,jpcal)*wscal(ji,jj,ikt) 153 153 & *2.*zfact 154 #if defined key_ trc_kriest154 #if defined key_kriest 155 155 sumsedpo4=sumsedpo4+ 156 156 & (trn(ji,jj,ikt,jppoc)*wsbio3(ji,jj,ikt))*zfact … … 178 178 ikt=max(mbathy(ji,jj)-1,1) 179 179 xconctmp=trn(ji,jj,ikt,jpdsi)*zstep/fse3t(ji,jj,ikt) 180 #if ! defined key_ trc_kriest180 #if ! defined key_kriest 181 181 & *wsbio4(ji,jj,ikt) 182 182 #else … … 205 205 DO ji=1,jpi 206 206 ikt=max(mbathy(ji,jj)-1,1) 207 #if ! defined key_ trc_kriest207 #if ! defined key_kriest 208 208 xconctmp=trn(ji,jj,ikt,jpgoc) 209 209 xconctmp2=trn(ji,jj,ikt,jppoc) -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zsink.F
r719 r772 1 1 SUBROUTINE p4zsink 2 #if defined key_ passivetrc && defined key_trc_pisces2 #if defined key_top && defined key_pisces 3 3 CCC--------------------------------------------------------------------- 4 4 CCC … … 37 37 #include "domzgr_substitute.h90" 38 38 39 #if defined key_ trc_kriest39 #if defined key_kriest 40 40 41 41 # include "p4zsink.kriest.h" -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zsink2.F
r719 r772 6 6 SUBROUTINE p4zsink2(wstmp,sinktemp,jn) 7 7 CDIR$ LIST 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 !!! 10 10 !!! p4zsink2 : PISCES model -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zslow.F
r719 r772 6 6 CDIR$ LIST 7 7 SUBROUTINE p4zslow(kt) 8 #if defined key_ passivetrc && defined key_trc_pisces8 #if defined key_top && defined key_pisces 9 9 CCC--------------------------------------------------------------------- 10 10 CCC -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_cen2.F90
r719 r772 1 1 MODULE trcadv_cen2 2 !!====================================================================== ========2 !!====================================================================== 3 3 !! *** MODULE trcadv_cen2 *** 4 4 !! Ocean passive tracers: horizontal & vertical advective tracer trend 5 !!============================================================================== 6 #if defined key_passivetrc 5 !!====================================================================== 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_adv_cen2 : update the tracer trend with the horizontal … … 10 12 !! centered finite difference scheme 11 13 !!---------------------------------------------------------------------- 12 !! * Modules used13 14 USE oce_trc ! ocean dynamics and active tracers variables 14 15 USE trc ! ocean passive tracers variables … … 19 20 PRIVATE 20 21 21 !! * Accessibility22 22 PUBLIC trc_adv_cen2 ! routine called by trcstp.F90 23 23 -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_muscl.F90
r724 r772 4 4 !! Ocean passive tracers: horizontal & vertical advective trend 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_adv_muscl : update the tracer trend with the horizontal -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90
r719 r772 4 4 !! Ocean passive tracers: horizontal & vertical advective trend 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! tra_adv_muscl2 : update the tracer trend with the horizontal -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_smolar.F90
r719 r772 4 4 !! Ocean passive tracers: horizontal & vertical advective trend 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_adv_smolar : update the passive tracer trend with the horizontal -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_tvd.F90
r719 r772 4 4 !! Ocean passive tracers: horizontal & vertical advective trend 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_adv_tvd : update the passive tracer trend with the horizontal … … 11 13 !! algorithm 12 14 !!---------------------------------------------------------------------- 13 !! * Modules used14 15 USE oce_trc ! ocean dynamics and active tracers variables 15 16 USE trc ! ocean passive tracers variables … … 325 326 !! ! 00-02 (H. Loukos) rewritting for opa8 326 327 !! ! 00-10 (M.A Foujols, E. Kestenare) lateral b.c. 327 !! ! 01-03 (E. Kestenare) add key_passivetrc328 328 !! ! 01-07 (E. Durand G. Madec) adapted for T & S 329 329 !! 8.5 ! 02-06 (G. Madec) F90: Free form and module -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcbbc.F90
r719 r772 1 1 MODULE trcbbc 2 !!====================================================================== ========2 !!====================================================================== 3 3 !! *** MODULE trcbbc *** 4 4 !! Ocean passive tracers: bottom boundary condition 5 !!====================================================================== ========6 #if defined key_passivetrc &&defined key_trcbbc7 !!---------------------------------------------------------------------- 8 !! 'key_t rcbbc'geothermal heat flux5 !!====================================================================== 6 #if defined key_top && defined key_trcbbc 7 !!---------------------------------------------------------------------- 8 !! 'key_top' and 'key_trcbbc' TOP model and geothermal heat flux 9 9 !!---------------------------------------------------------------------- 10 10 !! trc_bbc : update the tracer trend at ocean bottom -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcbbl.F90
r719 r772 5 5 !! layer scheme 6 6 !!============================================================================== 7 #if defined key_passivetrc && ( defined key_trcbbl_dif || defined key_trcbbl_adv ) && ! defined key_cfg_1d 8 !!---------------------------------------------------------------------- 9 !! 'key_trcbbl_dif' or diffusive bottom boundary layer 10 !! 'key_trcbbl_adv' advective bottom boundary layer 7 #if defined key_top && ( defined key_trcbbl_dif || defined key_trcbbl_adv ) && ! defined key_cfg_1d 8 !!---------------------------------------------------------------------- 9 !!---------------------------------------------------------------------- 10 !! 'key_top' and TOP models 11 !! 'key_trcbbl_dif' or diffusive bottom boundary layer 12 !! 'key_trcbbl_adv' advective bottom boundary layer 11 13 !!---------------------------------------------------------------------- 12 14 !! trc_bbl_dif : update the passive tracer trends due to the bottom -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcdmp.F90
r724 r772 4 4 !! Ocean physics: internal restoring trend on passive tracers 5 5 !!====================================================================== 6 #if defined key_ passivetrc &&defined key_trcdmp6 #if defined key_top && defined key_trcdmp 7 7 !!---------------------------------------------------------------------- 8 !! key_trcdmp internal damping 8 !! 'key_top' TOP models 9 !! 'key_trcdmp' internal damping 9 10 !!---------------------------------------------------------------------- 10 11 !! trc_dmp : update the tracer trend with the internal damping -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_bilap.F90
r724 r772 2 2 !!============================================================================== 3 3 !! *** MODULE trcldf_bilap *** 4 !! Ocean passive tracers: horizontal component of the lateral tracer mixing trend4 !! TOP : horizontal component of the lateral tracer mixing trend 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_ldf_bilap : update the tracer trend with the horizontal diffusion -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_bilapg.F90
r719 r772 4 4 !! Ocean passive tracers: horizontal component of the lateral tracer mixing trend 5 5 !!============================================================================== 6 #if key_passivetrc && defined key_ldfslp 7 !!---------------------------------------------------------------------- 6 #if defined key_top && defined key_ldfslp 7 !!---------------------------------------------------------------------- 8 !! 'key_top' and TOP models 8 9 !! 'key_ldfslp' rotation of the lateral mixing tensor 9 10 !!---------------------------------------------------------------------- -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_iso.F90
r724 r772 4 4 !! Ocean passive tracers: horizontal component of the lateral tracer mixing trend 5 5 !!============================================================================== 6 #if key_passivetrc && defined key_ldfslp 7 !!---------------------------------------------------------------------- 6 #if defined key_top && defined key_ldfslp 7 !!---------------------------------------------------------------------- 8 !! 'key_top' and TOP models 8 9 !! 'key_ldfslp' rotation of the lateral mixing tensor 9 10 !!---------------------------------------------------------------------- -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90
r724 r772 4 4 !! Ocean passive tracers: horizontal component of the lateral tracer mixing trend 5 5 !!============================================================================== 6 #if key_passivetrc && defined key_ldfslp 7 !!---------------------------------------------------------------------- 6 #if defined key_top && defined key_ldfslp 7 !!---------------------------------------------------------------------- 8 !! 'key_top' and TOP models 8 9 !! 'key_ldfslp' slope of the lateral diffusive direction 9 10 !!---------------------------------------------------------------------- -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_lap.F90
r719 r772 4 4 !! Ocean passive tracers: horizontal component of the lateral tracer mixing trend 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_ldf_lap : update the tracer trend with the horizontal diffusion -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcnxt.F90
r719 r772 4 4 !! Ocean passive tracers: time stepping on passives tracers 5 5 !!====================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_nxt : time stepping on passive tracers -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcrad.F90
r771 r772 7 7 !! 1.0 ! 04-03 (C. Ethe) free form F90 8 8 !!---------------------------------------------------------------------- 9 #if defined key_ passivetrc9 #if defined key_top 10 10 !!---------------------------------------------------------------------- 11 !! 'key_ passivetrc' Passive tracers11 !! 'key_top' TOP models 12 12 !!---------------------------------------------------------------------- 13 13 !! trc_rad : correction of negative concentrations … … 27 27 !!---------------------------------------------------------------------- 28 28 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $Id :$29 !! $Id$ 30 30 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 31 31 !!---------------------------------------------------------------------- … … 62 62 ENDIF 63 63 64 IF( lk_ trc_cfc ) THEN! CFC model64 IF( lk_cfc ) THEN ! CFC model 65 65 DO jn = 1, jptra 66 66 DO jk = 1, jpkm1 … … 75 75 ENDIF 76 76 77 IF( lk_ trc_pisces .OR. lk_trc_lobster ) THEN ! PISCES or LOBSTER bio-model77 IF( lk_pisces .OR. lk_lobster ) THEN ! PISCES or LOBSTER bio-model 78 78 DO jn = 1, jptra 79 79 ztrcorb = 0.e0 -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcsbc.F90
r724 r772 4 4 !! Ocean passive tracers: surface boundary condition 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_sbc : update the tracer trend at ocean surface -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp.F90
r771 r772 6 6 !! History : 1.0 ! 2004-03 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_ passivetrc8 #if defined key_top 9 9 !!---------------------------------------------------------------------- 10 !! 'key_ passivetrc'TOP models10 !! 'key_top' TOP models 11 11 !!---------------------------------------------------------------------- 12 12 !! trc_trp : passive tracer transport -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp_ctl.F90
r771 r772 6 6 !! History : 1.0 ! 2004-03 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_ passivetrc9 !!---------------------------------------------------------------------- 10 !! 'key_ passivetrc'TOP models8 #if defined key_top 9 !!---------------------------------------------------------------------- 10 !! 'key_top' TOP models 11 11 !!---------------------------------------------------------------------- 12 12 !! trc_trp_ctl : control the different options of transport -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp_lec.F90
r771 r772 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture 8 8 !!---------------------------------------------------------------------- 9 #if defined key_ passivetrc9 #if defined key_top 10 10 !!---------------------------------------------------------------------- 11 !! 'key_ passivetrc'TOP models11 !! 'key_top' TOP models 12 12 !!---------------------------------------------------------------------- 13 13 !! trc_trp_lec : read the passive tracer namelist for transport -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_exp.F90
r719 r772 5 5 !! an explicit time-stepping (time spllitting scheme) 6 6 !!============================================================================== 7 #if defined key_passivetrc 7 #if defined key_top 8 !!---------------------------------------------------------------------- 9 !! 'key_top' TOP models 8 10 !!---------------------------------------------------------------------- 9 11 !! trc_zdf_exp : update the tracer trend with the vertical diffusion -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_imp.F90
r719 r772 4 4 !! Ocean passive tracers: vertical component of the tracer mixing trend 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_zdf_imp : update the tracer trend with the vertical diffusion -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_iso.F90
r724 r772 4 4 !! Ocean passive tracers: vertical component of the tracer mixing trend 5 5 !!============================================================================== 6 #if defined key_passivetrc && ( defined key_ldfslp || defined key_esopa ) 7 !!---------------------------------------------------------------------- 6 #if defined key_top && ( defined key_ldfslp || defined key_esopa ) 7 !!---------------------------------------------------------------------- 8 !! 'key_top' and TOP models 8 9 !! 'key_ldfslp' rotation of the lateral mixing tensor 9 10 !!---------------------------------------------------------------------- -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90
r724 r772 4 4 !! Ocean passive tracers: vertical component of the tracer mixing trend 5 5 !!============================================================================== 6 #if defined key_passivetrc && ( defined key_ldfslp || defined key_esopa ) 7 !!---------------------------------------------------------------------- 6 #if defined key_top && ( defined key_ldfslp || defined key_esopa ) 7 !!---------------------------------------------------------------------- 8 !! 'key_top' and TOP models 8 9 !! 'key_ldfslp' rotation of the lateral mixing tensor 9 10 !!---------------------------------------------------------------------- -
branches/dev_001_GM/NEMO/TOP_SRC/TRP/zpshde_trc.F90
r719 r772 4 4 !! Ocean passive tracers: 5 5 !!============================================================================== 6 #if defined key_passivetrc 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! z-coordinate with partial steps -
branches/dev_001_GM/NEMO/TOP_SRC/initrc.F90
r763 r772 7 7 !! 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) F90 8 8 !! - ! 2005-10 (C. Ethe) print control 9 !! 2.0 ! 2005-10 (C. Ethe, G. Madec) revised architecture 9 10 !!---------------------------------------------------------------------- 10 #if defined key_ passivetrc11 #if defined key_top 11 12 !!---------------------------------------------------------------------- 12 !! 'key_ passivetrc' Passive tracers13 !! 'key_top' TOP models 13 14 !!---------------------------------------------------------------------- 14 15 !! ini_trc : initialisation of passive tracers … … 32 33 !!---------------------------------------------------------------------- 33 34 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 34 !! $Id :$35 !! $Id$ 35 36 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 36 37 !!---------------------------------------------------------------------- -
branches/dev_001_GM/NEMO/TOP_SRC/oce_trc.F90
r770 r772 11 11 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 12 12 !!---------------------------------------------------------------------- 13 #if defined key_ passivetrc14 !!---------------------------------------------------------------------- 15 !! 'key_ passivetrc' TOP model13 #if defined key_top 14 !!---------------------------------------------------------------------- 15 !! 'key_top' TOP models 16 16 !!---------------------------------------------------------------------- 17 17 -
branches/dev_001_GM/NEMO/TOP_SRC/prtctl_trc.F90
r765 r772 7 7 !! 1.0 ! 2005-10 (C. Ethe ) adapted to passive tracer 8 8 !!---------------------------------------------------------------------- 9 #if defined key_ passivetrc10 !!---------------------------------------------------------------------- 11 !! 'key_ passivetrc' Passive tracers9 #if defined key_top 10 !!---------------------------------------------------------------------- 11 !! 'key_top' TOP models 12 12 !!---------------------------------------------------------------------- 13 13 !! prt_ctl_trc : control print in mpp for passive tracers -
branches/dev_001_GM/NEMO/TOP_SRC/sms.F90
r765 r772 6 6 !! History : - ! 2004-03 (C. Ethe) Free form and module 7 7 !!---------------------------------------------------------------------- 8 !!----------------------------------------------------------------------9 8 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 10 9 !! $Header:$ 11 10 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 12 11 !!---------------------------------------------------------------------- 13 #if defined key_ passivetrc12 #if defined key_top 14 13 !!---------------------------------------------------------------------- 15 !! 'key_ passivetrc' Passive tracers14 !! 'key_top' TOP models 16 15 !!---------------------------------------------------------------------- 17 16 USE par_oce … … 21 20 PUBLIC 22 21 23 # if defined key_ trc_lobster122 # if defined key_lobster 24 23 !!---------------------------------------------------------------------- 25 !! 'key_ trc_lobster1' LOBSTER1 biologicalmodel24 !! 'key_lobster' LOBSTER bio-model 26 25 !!---------------------------------------------------------------------- 27 26 # include "sms_lobster1.h90" 28 27 29 # elif defined key_ trc_pisces28 # elif defined key_pisces 30 29 !!---------------------------------------------------------------------- 31 !! 'key_ trc_pisces' PISCES biologicalmodel30 !! 'key_pisces' PISCES bio-model 32 31 !!---------------------------------------------------------------------- 33 32 # include "sms_pisces.h90" -
branches/dev_001_GM/NEMO/TOP_SRC/trc.F90
r768 r772 13 13 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 14 14 !!---------------------------------------------------------------------- 15 # if defined key_passivetrc15 #if defined key_top 16 16 !!---------------------------------------------------------------------- 17 !! 'key_ passivetrc' : Passive tracers17 !! 'key_top' TOP models 18 18 !!---------------------------------------------------------------------- 19 19 USE par_oce -
branches/dev_001_GM/NEMO/TOP_SRC/trcctl.F90
r763 r772 6 6 !! History : 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_ passivetrc8 #if defined key_top 9 9 !!---------------------------------------------------------------------- 10 !! 'key_ passivetrc' Passive tracers10 !! 'key_top' TOP models 11 11 !!---------------------------------------------------------------------- 12 12 !! trc_ctl : control the cpp options, files and namelist values … … 81 81 IF(lwp) WRITE(numout,*) ' ' 82 82 83 # if defined key_ trc_lobster183 # if defined key_lobster 84 84 # include "trcctl.lobster1.h90" 85 # elif defined key_ trc_pisces85 # elif defined key_pisces 86 86 # include "trcctl.pisces.h90" 87 87 # elif defined key_cfc -
branches/dev_001_GM/NEMO/TOP_SRC/trcdia.F90
r763 r772 6 6 !! History : 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_ passivetrc8 #if defined key_top 9 9 !!---------------------------------------------------------------------- 10 !! 'key_ passivetrc' Passive tracers10 !! 'key_top' TOP models 11 11 !!---------------------------------------------------------------------- 12 12 !! trc_dia : output passive tracer fields -
branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90
r771 r772 11 11 !! 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) F90 12 12 !!---------------------------------------------------------------------- 13 #if defined key_ passivetrc13 #if defined key_top 14 14 !!---------------------------------------------------------------------- 15 !! 'key_ passivetrc' Passive tracers15 !! 'key_top' TOP models 16 16 !!---------------------------------------------------------------------- 17 17 !! trcdit_wr : … … 441 441 # endif 442 442 443 # if defined key_ passivetrc&& defined key_trc_diaadd443 # if defined key_top && defined key_trc_diaadd 444 444 445 445 SUBROUTINE trcdii_wr( kt, kindic ) -
branches/dev_001_GM/NEMO/TOP_SRC/trcdta.F90
r765 r772 8 8 !! - ! 2005-03 (O. Aumont, A. El Moussaoui) F90 9 9 !!---------------------------------------------------------------------- 10 #if defined key_ passivetrc&& defined key_dtatrc11 !!---------------------------------------------------------------------- 12 !! 'key_ passivetrc' and 'key_dtatrc' 3Dpassive tracer data10 #if defined key_top && defined key_dtatrc 11 !!---------------------------------------------------------------------- 12 !! 'key_top' and 'key_dtatrc' TOP model + passive tracer data 13 13 !!---------------------------------------------------------------------- 14 14 !! dta_trc : read ocean passive tracer data … … 94 94 IF(lwp) WRITE(numout,*) ' trc_dta : Levitus tracer data monthly fields' 95 95 ! open file 96 # if defined key_ trc_pisces96 # if defined key_pisces 97 97 clname(jn) = 'LEVITUS_'//ctrcnm(jn) 98 98 # else … … 103 103 ENDIF 104 104 105 # if defined key_ trc_pisces105 # if defined key_pisces 106 106 ! Read montly file 107 107 IF( ( kt == nittrc000 .AND. nlectr(jn) == 0) .OR. imois /= ntrc1(jn) ) THEN -
branches/dev_001_GM/NEMO/TOP_SRC/trcdtr.F90
r763 r772 8 8 !! 1.0 ! 2005-12 (O. Aumont, A. El Moussaoui) F90 9 9 !!---------------------------------------------------------------------- 10 #if defined key_ passivetrc11 !!---------------------------------------------------------------------- 12 !! 'key_ passivetrc' Passive tracers10 #if defined key_top 11 !!---------------------------------------------------------------------- 12 !! 'key_top' TOP models 13 13 !!---------------------------------------------------------------------- 14 14 !! trc_dtr : computes or READ initial DATA for passive tracer … … 42 42 !!--------------------------------------------------------------------- 43 43 INTEGER :: ji,jj,jk,jn 44 #if defined key_ trc_pisces44 #if defined key_pisces 45 45 REAL(wp) :: alka0, oxyg0, calc0, bioma0 46 46 REAL(wp) :: silic1, po4, no3, caralk, bicarb, co3 … … 56 56 trn(:,:,:,:) = 0.e0 57 57 58 #elif defined key_ trc_pisces58 #elif defined key_pisces 59 59 ! PISCES initialisation 60 60 ! --------------------- … … 75 75 trn(:,:,:,jppo4) = po4 76 76 trn(:,:,:,jppoc) = bioma0 77 #if ! defined key_ trc_kriest77 #if ! defined key_kriest 78 78 trn(:,:,:,jpgoc) = bioma0 79 79 trn(:,:,:,jpbfe) = bioma0 * 5.e-6 … … 119 119 IF(lwp) WRITE(numout,*) ' ' 120 120 121 #elif defined key_ trc_lobster1&& ( defined key_eel_r6 || defined key_eel_r2 )121 #elif defined key_lobster && ( defined key_eel_r6 || defined key_eel_r2 ) 122 122 ! LOBSTER initialisation for EEL 123 123 ! ---------------------- … … 195 195 trn(:,:,30,jpno3) = 20.01 * tmask(:,:,30) 196 196 197 #elif defined key_ trc_lobster1&& defined key_gyre197 #elif defined key_lobster && defined key_gyre 198 198 ! LOBSTER initialisation for GYRE 199 199 ! ---------------------- … … 237 237 trb(:,:,:,:) = trn(:,:,:,:) 238 238 239 #if defined key_ trc_lobster1239 #if defined key_lobster 240 240 ! initialize the POC in sediments 241 241 sedpocb(:,:) = 0.e0 -
branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90
r768 r772 45 45 IF(lwp) WRITE(numout,*) '~~~~~~~' 46 46 ! 47 IF( lk_ trc_lobster ) THEN ; CALL trc_ini_lobster ! LOBSTER bio-model48 ELSE 47 IF( lk_lobster ) THEN ; CALL trc_ini_lobster ! LOBSTER bio-model 48 ELSE ; IF(lwp) WRITE(numout,*) ' LOBSTER not used' 49 49 ENDIF 50 50 51 IF( lk_ trc_pisces ) THEN ; CALL trc_ini_pisces ! PISCES bio-model52 ELSE 51 IF( lk_pisces ) THEN ; CALL trc_ini_pisces ! PISCES bio-model 52 ELSE ; IF(lwp) WRITE(numout,*) ' PISCES not used' 53 53 ENDIF 54 54 55 IF( lk_ trc_cfc ) THEN ; CALL trc_ini_cfc ! CFC tracers56 ELSE 55 IF( lk_cfc ) THEN ; CALL trc_ini_cfc ! CFC tracers 56 ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used' 57 57 ENDIF 58 58 59 IF( lk_my_trc 60 ELSE 59 IF( lk_my_trc ) THEN ; CALL trc_ini_my_trc ! MY_TRC tracers 60 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 61 61 ENDIF 62 62 ! -
branches/dev_001_GM/NEMO/TOP_SRC/trclec.F90
r768 r772 12 12 !! 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) F90 13 13 !!---------------------------------------------------------------------- 14 #if defined key_ passivetrc15 !!---------------------------------------------------------------------- 16 !! 'key_ passivetrc' Passive tracers14 #if defined key_top 15 !!---------------------------------------------------------------------- 16 !! 'key_top' TOP models 17 17 !!---------------------------------------------------------------------- 18 18 !! trc_lec : Read and print options for the passive tracer run (namelist) -
branches/dev_001_GM/NEMO/TOP_SRC/trclsm.F90
r768 r772 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) re-writing 8 8 !!---------------------------------------------------------------------- 9 #if defined key_ passivetrc9 #if defined key_top 10 10 !!---------------------------------------------------------------------- 11 !! 'key_ passivetrc' Passive tracers11 !! 'key_top' TOP models 12 12 !!---------------------------------------------------------------------- 13 13 !! trc_lsm : reads specific namelist for sms terms … … 47 47 IF(lwp) WRITE(numout,*) '~~~~~~~' 48 48 ! 49 IF( lk_ trc_lobster ) THEN ; CALL trc_lsm_lobster ! LOBSTER bio-model50 ELSE 49 IF( lk_lobster ) THEN ; CALL trc_lsm_lobster ! LOBSTER bio-model 50 ELSE ; IF(lwp) WRITE(numout,*) ' LOBSTER not used' 51 51 ENDIF 52 52 53 IF( lk_ trc_pisces ) THEN ; CALL trc_lsm_pisces ! PISCES bio-model54 ELSE 53 IF( lk_pisces ) THEN ; CALL trc_lsm_pisces ! PISCES bio-model 54 ELSE ; IF(lwp) WRITE(numout,*) ' PISCES not used' 55 55 ENDIF 56 56 57 IF( lk_ trc_cfc ) THEN ; CALL trc_lsm_cfc ! CFC tracers58 ELSE 57 IF( lk_cfc ) THEN ; CALL trc_lsm_cfc ! CFC tracers 58 ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used' 59 59 ENDIF 60 60 61 IF( lk_my_trc 62 ELSE 61 IF( lk_my_trc ) THEN ; CALL trc_lsm_my_trc ! MY_TRC tracers 62 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 63 63 ENDIF 64 64 ! -
branches/dev_001_GM/NEMO/TOP_SRC/trcrst.F90
r771 r772 6 6 !! History : 1.0 ! 2007-02 (C. Ethe) adaptation from the ocean 7 7 !!---------------------------------------------------------------------- 8 #if defined key_ passivetrc9 !!---------------------------------------------------------------------- 10 !! 'key_ passivetrc' Passive tracers8 #if defined key_top 9 !!---------------------------------------------------------------------- 10 !! 'key_top' TOP models 11 11 !!---------------------------------------------------------------------- 12 12 !! trc_rst_opn : open restart file … … 87 87 INTEGER :: iarak0 88 88 REAL(wp) :: zkt, zarak0 89 # if defined key_ trc_pisces89 # if defined key_pisces 90 90 REAL(wp) :: ztrasum 91 91 INTEGER :: ji, jj, jk … … 149 149 CALL iom_get( numrtr, jpdom_local, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) ) 150 150 END DO 151 # if defined key_ trc_lobster1151 # if defined key_lobster 152 152 CALL iom_get( numrtr, jpdom_local, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) ) 153 153 CALL iom_get( numrtr, jpdom_local, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) ) 154 # elif defined key_ trc_pisces154 # elif defined key_pisces 155 155 CALL iom_get( numrtr, jpdom_local, 'Silicalim', xksi(:,:) ) 156 156 xksimax = xksi … … 162 162 # endif 163 163 164 # if defined key_ trc_pisces164 # if defined key_pisces 165 165 ! ! --------------------------- ! 166 166 IF( cp_cfg == "orca" .AND. .NOT. lk_trccfg_1d ) THEN ! ORCA condiguration (not 1D) ! … … 245 245 ENDIF 246 246 247 !#if defined key_ trc_kriest247 !#if defined key_kriest 248 248 ! !! Initialize number of particles from a standart restart file 249 249 ! !! The name of big organic particles jpgoc has been only change … … 312 312 END DO 313 313 314 #if defined key_ trc_lobster1314 #if defined key_lobster 315 315 CALL iom_rstput( kt, nitrst, numrtw, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) ) 316 316 CALL iom_rstput( kt, nitrst, numrtw, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) ) 317 #elif defined key_ trc_pisces317 #elif defined key_pisces 318 318 CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) ) 319 319 -
branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90
r771 r772 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture 8 8 !!---------------------------------------------------------------------- 9 #if defined key_ passivetrc9 #if defined key_top 10 10 !!---------------------------------------------------------------------- 11 !! 'key_ passivetrc' Passive tracers11 !! 'key_top' TOP models 12 12 !!---------------------------------------------------------------------- 13 13 !! trc_sms : Time loop of passive tracers sms … … 46 46 IF ( MOD(kt,ndttrc) /= 0) RETURN ! this ROUTINE is called only every ndttrc time step 47 47 48 #if defined key_ trc_lobster148 #if defined key_lobster 49 49 50 50 ! LOBSTER biological model … … 83 83 ENDIF 84 84 85 #elif defined key_ trc_pisces85 #elif defined key_pisces 86 86 87 87 ! PISCES biological model … … 98 98 ! ------------------ 99 99 100 IF( lk_ trc_cfc ) CALL trc_cfc( kt ) ! surface fluxes of CFC100 IF( lk_cfc ) CALL trc_cfc( kt ) ! surface fluxes of CFC 101 101 102 102 #endif -
branches/dev_001_GM/NEMO/TOP_SRC/trcstp.F90
r771 r772 6 6 !! History : 1.0 ! 2004-03 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_ passivetrc8 #if defined key_top 9 9 !!---------------------------------------------------------------------- 10 !! 'key_ passivetrc'TOP models10 !! 'key_top' TOP models 11 11 !!---------------------------------------------------------------------- 12 12 !! trc_stp : passive tracer system time-stepping -
branches/dev_001_GM/NEMO/TOP_SRC/trp_trc.F90
r771 r772 10 10 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 11 11 !!---------------------------------------------------------------------- 12 #if defined key_ passivetrc12 #if defined key_top 13 13 !!---------------------------------------------------------------------- 14 !! 'key_ passivetrc' TOP model14 !! 'key_top' TOP models 15 15 !!---------------------------------------------------------------------- 16 16
Note: See TracChangeset
for help on using the changeset viewer.
