Changeset 7124
- Timestamp:
- 2016-10-26T20:08:30+02:00 (7 years ago)
- Location:
- branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/CONFIG/ORCA2_LIM3_TRC/EXP00/namelist_top_cfg
r7041 r7124 16 16 &namtrc ! tracers definition 17 17 !----------------------------------------------------------------------- 18 jptra = 0 ! Number of passive tracers of the BGC model 19 ! 20 ln_pisces = .false. ! Run PISCES BGC model 21 ln_my_trc = .false. ! Run MY_TRC BGC model 22 ln_age = .true. ! Run the sea water age tracer 23 ln_cfc11 = .true. ! Run the CFC11 passive tracer 24 ln_cfc12 = .false. ! Run the CFC12 passive tracer 25 ln_c14 = .true. ! Run the Radiocarbon passive tracer 18 26 / 19 27 !----------------------------------------------------------------------- -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcini_age.F90
r7103 r7124 10 10 USE oce_trc 11 11 USE trc 12 USE trcnam_age 12 13 USE trcsms_age 13 14 … … 33 34 INTEGER :: jn 34 35 CHARACTER(len = 20) :: cltra 35 36 36 !!---------------------------------------------------------------------- 37 ! 38 CALL trc_nam_age 39 ! 37 40 IF(lwp) WRITE(numout,*) 38 41 IF(lwp) WRITE(numout,*) ' trc_ini_age: passive tracer age' 39 42 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 40 43 IF(lwp) WRITE(numout,*) 41 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.51 44 52 45 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
r7103 r7124 37 37 NAMELIST/namage/ rn_age_depth, rn_age_kill_rate 38 38 !!---------------------------------------------------------------------- 39 39 ! Variable setting 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 ln_trc_sbc(jp_age) = .false. 45 ln_trc_cbc(jp_age) = .false. 46 ln_trc_obc(jp_age) = .false. 47 ! 40 48 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters 41 49 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/C14/trcnam_c14.F90
r7103 r7124 43 43 NAMELIST/namc14_fcg/ cfileco2, cfilec14, tyrc14_beg ! for transient exps; atm forcing 44 44 !!------------------------------------------------------------------- 45 ! 45 ! Variable setting 46 46 ctrcnm (jp_c14) = 'RC14' 47 47 ctrcln (jp_c14) = 'Radiocarbon ratio' 48 48 ctrcun (jp_c14) = '-' 49 49 ln_trc_ini(jp_c14) = .false. 50 ln_trc_sbc(jp_c14) = .false. 51 ln_trc_cbc(jp_c14) = .false. 52 ln_trc_obc(jp_c14) = .false. 50 53 ! 51 52 54 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist : 53 55 READ ( numtrc_ref, namc14_typ, IOSTAT = ios, ERR = 901) -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90
r7097 r7124 46 46 CHARACTER(len = 20) :: cltra 47 47 !!---------------------------------------------------------------------- 48 48 ! 49 CALL trc_nam_cfc 50 ! 49 51 IF(lwp) WRITE(numout,*) 50 52 IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model' 51 53 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 52 !53 CALL trc_nam_cfc54 54 ! 55 55 IF(lwp) WRITE(numout,*) 'read of formatted file cfc1112atm' -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r7103 r7124 41 41 NAMELIST/namcfc/ ndate_beg, nyear_res 42 42 !!---------------------------------------------------------------------- 43 43 ! Variables setting 44 44 IF( ln_cfc11 ) THEN 45 45 ctrcnm (jp_cfc0) = 'CFC11' … … 47 47 ctrcun (jp_cfc0) = 'umolC/L' 48 48 ln_trc_ini(jp_cfc0) = .false. 49 ln_trc_sbc(jp_cfc0) = .false. 50 ln_trc_cbc(jp_cfc0) = .false. 51 ln_trc_obc(jp_cfc0) = .false. 49 52 ENDIF 50 53 ! … … 54 57 ctrcun (jp_cfc1) = 'umolC/L' 55 58 ln_trc_ini(jp_cfc1) = .false. 59 ln_trc_sbc(jp_cfc1) = .false. 60 ln_trc_cbc(jp_cfc1) = .false. 61 ln_trc_obc(jp_cfc1) = .false. 56 62 ENDIF 57 63 ! 58 IF(lwp) THEN ! control print59 ENDIF60 61 64 REWIND( numtrc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters 62 65 READ ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r7103 r7124 70 70 ! 71 71 CALL trc_ini_sms ! SMS 72 CALL trc_ini_inv ! Inventories 72 73 CALL trc_ini_trp ! passive tracers transport 73 74 CALL trc_ice_ini ! Tracers in sea ice … … 78 79 IF( nn_dttrc /= 1 ) & 79 80 CALL trc_sub_ini ! Initialize variables for substepping passive tracers 80 CALL trc_ini_inv ! Inventories81 81 ! 82 82 IF( nn_timing == 1 ) CALL timing_stop('trc_init') … … 123 123 IF(lwp) THEN ! control print 124 124 WRITE(numout,*) 125 WRITE(numout,*) 126 WRITE(numout,*) ' *** Total number of passive tracer jptra = ', jptra 127 WRITE(numout,*) ' *** Total volume of ocean = ', areatot 128 WRITE(numout,*) ' *** Total inital content of all tracers ' 125 WRITE(numout,*) ' *** Total number of passive tracer jptra = ', jptra 126 WRITE(numout,*) ' *** Total volume of ocean = ', areatot 127 WRITE(numout,*) ' *** Total inital content of all tracers ' 129 128 WRITE(numout,*) 130 129 DO jn = 1, jptra … … 140 139 CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm ) 141 140 ENDIF 142 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10)141 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10) 143 142 ! 144 143 END SUBROUTINE trc_ini_inv … … 177 176 ! 178 177 IF(lwp) THEN ! control print 179 WRITE(numout,*) 'ID NAME INI SBC CBC OBC' 178 WRITE(numout,*) 179 WRITE(numout,*) ' trc_init: Summary for selected passive tracers' 180 WRITE(numout,*) ' ~~~~~~~~~~~~~~' 181 WRITE(numout,*) ' ID NAME INI SBC CBC OBC' 180 182 DO jn = 1, jptra 181 183 WRITE(numout,9001) jn, TRIM(ctrcnm(jn)), ln_trc_ini(jn), ln_trc_sbc(jn),ln_trc_cbc(jn),ln_trc_obc(jn) 182 184 END DO 183 WRITE(numout,*) ' '184 185 ENDIF 185 9001 FORMAT( i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2)186 9001 FORMAT(1x,i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2) 186 187 ! 187 188 END SUBROUTINE trc_ini_sms -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r7103 r7124 20 20 USE oce_trc ! shared variables between ocean and passive tracers 21 21 USE trc ! passive tracers common variables 22 USE trcnam_pisces ! PISCES namelist23 USE trcnam_cfc ! CFC SMS namelist24 USE trcnam_c14 ! C14 SMS namelist25 USE trcnam_age ! AGE SMS namelist26 USE trcnam_my_trc ! MY_TRC SMS namelist27 22 USE trd_oce 28 23 USE trdtrc_oce … … 229 224 ENDIF 230 225 ! 231 IF( ln_age ) CALL trc_nam_age232 !233 226 IF( ll_cfc .OR. ln_c14 ) THEN 234 227 ! ! Open namelist files
Note: See TracChangeset
for help on using the changeset viewer.