Changeset 7103
- Timestamp:
- 2016-10-26T12:52:54+02:00 (7 years ago)
- Location:
- branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM
- Files:
-
- 10 edited
-
CONFIG/ORCA2_LIM3_TRC/cpp_ORCA2_LIM3_TRC.fcm (modified) (1 diff)
-
CONFIG/SHARED/namelist_top_ref (modified) (2 diffs)
-
CONFIG/SHARED/namelist_trc_ref (modified) (3 diffs)
-
NEMO/TOP_SRC/AGE/trcini_age.F90 (modified) (2 diffs)
-
NEMO/TOP_SRC/AGE/trcnam_age.F90 (modified) (2 diffs)
-
NEMO/TOP_SRC/C14/trcnam_c14.F90 (modified) (1 diff)
-
NEMO/TOP_SRC/CFC/trcnam_cfc.F90 (modified) (1 diff)
-
NEMO/TOP_SRC/trc.F90 (modified) (1 diff)
-
NEMO/TOP_SRC/trcini.F90 (modified) (1 diff)
-
NEMO/TOP_SRC/trcnam.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/CONFIG/ORCA2_LIM3_TRC/cpp_ORCA2_LIM3_TRC.fcm
r7068 r7103 1 bld::tool::fppkeys key_trabbl key_lim3 key_zdftke key_zdfddm key_zdftmx key_top key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_trabbl key_lim3 key_zdftke key_zdfddm key_zdftmx key_top key_iomput key_mpp_mpi key_nosignedzero -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/CONFIG/SHARED/namelist_top_ref
r7097 r7103 29 29 ! 30 30 ln_pisces = .false. ! Run PISCES BGC model 31 ln_my_trc = .false. ! Run MY_TRC BGC model 31 32 ln_age = .false. ! Run the sea water age tracer 32 33 ln_cfc11 = .false. ! Run the CFC11 passive tracer 33 34 ln_cfc12 = .false. ! Run the CFC12 passive tracer 34 35 ln_c14 = .false. ! Run the Radiocarbon passive tracer 35 ln_my_trc = .false. ! Run MY_TRC BGC model36 36 ! 37 37 ln_trcdta = .false. ! Initialisation from data input file (T) or not (F) … … 41 41 ! ! name ! title of the field ! units ! initial data from file or not ! 42 42 ! sn_tracer(1) = 'tracer ' , 'Tracer Concentration ', ' - ' , .false. 43 / 44 !----------------------------------------------------------------------- 45 &namage ! AGE 46 !----------------------------------------------------------------------- 47 rn_age_depth = 10 ! depth over which age tracer reset to zero 48 rn_age_kill_rate = -0.000138888 ! = -1/7200 recip of relaxation timescale (s) for age tracer shallower than age_depth 43 49 / 44 50 !----------------------------------------------------------------------- -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/CONFIG/SHARED/namelist_trc_ref
r7041 r7103 1 1 !!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 2 2 !! Inert tracers reference namelist 3 !! 1 - AGE (namage)4 3 !! 1 - CFC (namcfc) 5 4 !! 2 - C14 (namc14_typ, namc14_sbc, namc14_fcg) 6 5 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 7 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 8 &namage ! AGE - dates 9 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 10 rn_age_depth = 10 ! depth over which age tracer reset to zero 11 rn_age_kill_rate = -0.000138888 ! = -1/7200 recip of relaxation timescale (s) for age tracer shallower than age_depth 12 / 13 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 6 !----------------------------------------------------------------------- 14 7 &namcfc ! CFC 15 ! ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,8 !----------------------------------------------------------------------- 16 9 ndate_beg = 300101 ! datedeb1 17 10 nyear_res = 1932 ! iannee1 18 11 / 19 12 ! 20 ! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''13 !----------------------------------------------------------------------- 21 14 &namc14_typ ! C14 - type of C14 tracer, default values of C14/C and pco2 22 ! ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,15 !----------------------------------------------------------------------- 23 16 kc14typ = 0 ! Type of C14 tracer (0=equilibrium; 1=bomb transient; 2=past transient) 24 17 rc14at = 1.0 ! Default value for atmospheric C14/C (used for equil run) … … 27 20 / 28 21 ! 29 ! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''22 !----------------------------------------------------------------------- 30 23 &namc14_sbc ! C14 - surface BC 31 ! ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,24 !----------------------------------------------------------------------- 32 25 ln_chemh = .true. ! Chemical enhancement in piston vel.: yes/no 33 26 xkwind = 0.360 ! Coefficient for gas exchange velocity … … 35 28 / 36 29 ! 37 ! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''30 !----------------------------------------------------------------------- 38 31 &namc14_fcg ! files & dates 39 32 ! ! For Paleo-historical: specify tyrc14_beg in yr BP 40 33 ! ! For Bomb: tyrc14_beg=0 41 ! ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,34 !----------------------------------------------------------------------- 42 35 cfileco2 = 'splco2.dat' ! atmospheric co2 - Bomb 43 36 cfilec14 = 'atmc14.dat' ! atmospheric c14 - Bomb -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcini_age.F90
r7097 r7103 10 10 USE oce_trc 11 11 USE trc 12 USE trcnam_age ! AGE SMS namelist13 12 USE trcsms_age 14 13 … … 39 38 IF(lwp) WRITE(numout,*) ' trc_ini_age: passive tracer age' 40 39 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 40 IF(lwp) WRITE(numout,*) 41 41 42 CALL trc_nam_age 42 43 ctrcnm (jp_age) = 'Age' 44 ctrcln (jp_age) = 'Sea water age since surface contact' 45 ctrcun (jp_age) = 'year' 46 ln_trc_ini(jp_age) = .false. 47 ! 48 ln_trc_sbc(jp_age) = .false. 49 ln_trc_cbc(jp_age) = .false. 50 ln_trc_obc(jp_age) = .false. 43 51 44 52 rryear = 1._wp / ( nyear_len(1) * rday ) ! recip number of seconds in one year -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90
r7097 r7103 38 38 !!---------------------------------------------------------------------- 39 39 40 ctrcnm (jp_age) = 'Age' 41 ctrcln (jp_age) = 'Sea water age since surface contact' 42 ctrcun (jp_age) = 'year' 43 ln_trc_ini(jp_age) = .false. 44 ! 45 ln_trc_sbc(jp_age) = '' 46 ln_trc_cbc(jp_age) = '' 47 ln_trc_obc(jp_age) = '' 48 ! 49 50 REWIND( numtrc_ref ) ! Namelist namagedate in reference namelist : AGE parameters 51 READ ( numtrc_ref, namage, IOSTAT = ios, ERR = 901) 40 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters 41 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 52 42 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist', lwp ) 53 43 54 REWIND( num trc_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters55 READ ( num trc_cfg, namage, IOSTAT = ios, ERR = 902 )44 REWIND( numnat_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters 45 READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 56 46 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist', lwp ) 57 IF(lwm) WRITE ( numon r, namage )47 IF(lwm) WRITE ( numont, namage ) 58 48 59 49 IF(lwp) THEN ! control print 60 50 WRITE(numout,*) ' ' 61 51 WRITE(numout,*) ' Sea Age Tracer' 62 WRITE(numout,*) ' tracer nb : ', jp_age, ' short name : ', TRIM( ctrcnm(jp_age) )63 52 WRITE(numout,*) 64 53 WRITE(numout,*) ' trc_nam_age: Read namage, namelist for Age passive tracer' … … 69 58 ENDIF 70 59 71 IF(lwm) CALL FLUSH ( numonr ) ! flush output namelist 72 60 ! 73 61 END SUBROUTINE trc_nam_age 74 62 -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/C14/trcnam_c14.F90
r7068 r7103 62 62 WRITE(numout,*) ' ' 63 63 WRITE(numout,*) ' Radiocarbon C14' 64 WRITE(numout,*) ' tracer nb : ', jp_c14, ' short name : ', TRIM( ctrcnm(jp_c14) )65 64 WRITE(numout,*) ' ' 66 65 WRITE(numout,*) ' Namelist namc14_typ' -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r7068 r7103 71 71 WRITE(numout,*) ' ' 72 72 WRITE(numout,*) ' CFCs' 73 IF( ln_cfc11 ) WRITE(numout,*) ' tracer nb : ', jp_cfc0, ' short name : ', TRIM( ctrcnm(jp_cfc0) )74 IF( ln_cfc12 ) WRITE(numout,*) ' tracer nb : ', jp_cfc1, ' short name : ', TRIM( ctrcnm(jp_cfc1) )75 73 WRITE(numout,*) ' ' 76 74 WRITE(numout,*) ' trc_nam: Read namdates, namelist for CFC chemical model' -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trc.F90
r7097 r7103 115 115 !! information for inputs 116 116 !! -------------------------------------------------- 117 LOGICAL 118 LOGICAL 119 LOGICAL 120 LOGICAL 117 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_ini !: Initialisation from data input file 118 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_obc !: Use open boundary condition data 119 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_sbc !: Use surface boundary condition data 120 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_cbc !: Use coastal boundary condition data 121 121 122 122 -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r7097 r7103 63 63 CALL top_alloc() ! allocate TOP arrays 64 64 ! 65 IF(.NOT.ln_trcdta ) ln_trc_ini(:) = .FALSE. 65 66 ! 66 67 IF(lwp) WRITE(numout,*) -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r7097 r7103 64 64 IF( ln_trcdmp .OR. ln_trcdmp_clo ) ln_trcdta = .TRUE. ! damping : need to have clim data 65 65 ! 66 IF( .NOT.ln_trcdta ) ln_trc_ini(:) = .FALSE.67 66 68 67 IF(lwp) THEN ! control print … … 230 229 ENDIF 231 230 ! 232 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'trc_nam_ice: unable to allocate arrays' )233 ! 234 IF( l n_age .OR. ll_cfc .OR. ln_c14 ) THEN231 IF( ln_age ) CALL trc_nam_age 232 ! 233 IF( ll_cfc .OR. ln_c14 ) THEN 235 234 ! ! Open namelist files 236 235 CALL ctl_opn( numtrc_ref, 'namelist_trc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
Note: See TracChangeset
for help on using the changeset viewer.
