Changeset 7124


Ignore:
Timestamp:
2016-10-26T20:08:30+02:00 (4 years ago)
Author:
lovato
Message:

New top interface : revise initialisation routines and namelist_top_cfg in ORCA2_LIM3_TRC, see ticket #1782

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  
    1616&namtrc          !   tracers definition 
    1717!----------------------------------------------------------------------- 
     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 
    1826/ 
    1927!----------------------------------------------------------------------- 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcini_age.F90

    r7103 r7124  
    1010   USE oce_trc 
    1111   USE trc 
     12   USE trcnam_age 
    1213   USE trcsms_age 
    1314 
     
    3334      INTEGER    ::  jn 
    3435      CHARACTER(len = 20)  ::  cltra 
    35  
    36  
     36      !!---------------------------------------------------------------------- 
     37      ! 
     38      CALL trc_nam_age 
     39      ! 
    3740      IF(lwp) WRITE(numout,*) 
    3841      IF(lwp) WRITE(numout,*) ' trc_ini_age: passive tracer age' 
    3942      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
    4043      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. 
    5144 
    5245      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  
    3737      NAMELIST/namage/ rn_age_depth, rn_age_kill_rate  
    3838      !!---------------------------------------------------------------------- 
    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      ! 
    4048      REWIND( numnat_ref )              ! Namelist namagedate in reference namelist : AGE parameters 
    4149      READ  ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/C14/trcnam_c14.F90

    r7103 r7124  
    4343      NAMELIST/namc14_fcg/ cfileco2, cfilec14, tyrc14_beg  ! for transient exps; atm forcing 
    4444      !!------------------------------------------------------------------- 
    45       ! 
     45      ! Variable setting 
    4646      ctrcnm    (jp_c14) = 'RC14' 
    4747      ctrcln    (jp_c14) = 'Radiocarbon ratio' 
    4848      ctrcun    (jp_c14) = '-' 
    4949      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. 
    5053      ! 
    51  
    5254      REWIND( numtrc_ref )              ! Namelist namc14_typ in reference namelist : 
    5355      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  
    4646      CHARACTER(len = 20)  ::  cltra 
    4747      !!---------------------------------------------------------------------- 
    48  
     48      ! 
     49      CALL trc_nam_cfc 
     50      ! 
    4951      IF(lwp) WRITE(numout,*) 
    5052      IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model' 
    5153      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 
    52       ! 
    53       CALL trc_nam_cfc 
    5454      ! 
    5555      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  
    4141      NAMELIST/namcfc/ ndate_beg, nyear_res 
    4242      !!---------------------------------------------------------------------- 
    43  
     43      ! Variables setting 
    4444      IF( ln_cfc11 ) THEN 
    4545         ctrcnm    (jp_cfc0) = 'CFC11' 
     
    4747         ctrcun    (jp_cfc0) = 'umolC/L' 
    4848         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. 
    4952      ENDIF 
    5053      ! 
     
    5457         ctrcun    (jp_cfc1) = 'umolC/L' 
    5558         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. 
    5662      ENDIF 
    5763      ! 
    58       IF(lwp) THEN                   ! control print 
    59       ENDIF 
    60  
    6164      REWIND( numtrc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters 
    6265      READ  ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r7103 r7124  
    7070      ! 
    7171      CALL trc_ini_sms   ! SMS 
     72      CALL trc_ini_inv   ! Inventories 
    7273      CALL trc_ini_trp   ! passive tracers transport 
    7374      CALL trc_ice_ini   ! Tracers in sea ice 
     
    7879      IF( nn_dttrc /= 1 ) & 
    7980      CALL trc_sub_ini    ! Initialize variables for substepping passive tracers 
    80       CALL trc_ini_inv    ! Inventories 
    8181      ! 
    8282      IF( nn_timing == 1 )   CALL timing_stop('trc_init') 
     
    123123      IF(lwp) THEN               ! control print 
    124124         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 ' 
    129128         WRITE(numout,*) 
    130129         DO jn = 1, jptra 
     
    140139         CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm ) 
    141140      ENDIF 
    142 9000  FORMAT(' tracer nb : ',i2,'      name :',a10,'      initial content :',e18.10) 
     1419000  FORMAT('  tracer nb : ',i2,'      name :',a10,'      initial content :',e18.10) 
    143142      ! 
    144143   END SUBROUTINE trc_ini_inv 
     
    177176      ! 
    178177      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' 
    180182         DO jn = 1, jptra 
    181183            WRITE(numout,9001) jn, TRIM(ctrcnm(jn)), ln_trc_ini(jn), ln_trc_sbc(jn),ln_trc_cbc(jn),ln_trc_obc(jn) 
    182184         END DO 
    183          WRITE(numout,*) ' ' 
    184185      ENDIF 
    185 9001  FORMAT(i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2) 
     1869001  FORMAT(1x,i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2) 
    186187      ! 
    187188   END SUBROUTINE trc_ini_sms 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r7103 r7124  
    2020   USE oce_trc           ! shared variables between ocean and passive tracers 
    2121   USE trc               ! passive tracers common variables 
    22    USE trcnam_pisces     ! PISCES namelist 
    23    USE trcnam_cfc        ! CFC SMS namelist 
    24    USE trcnam_c14        ! C14 SMS namelist 
    25    USE trcnam_age        ! AGE SMS namelist 
    26    USE trcnam_my_trc     ! MY_TRC SMS namelist 
    2722   USE trd_oce        
    2823   USE trdtrc_oce 
     
    229224      ENDIF 
    230225      ! 
    231       IF( ln_age )  CALL trc_nam_age 
    232       ! 
    233226      IF( ll_cfc .OR. ln_c14 ) THEN 
    234227        !                             ! Open namelist files 
Note: See TracChangeset for help on using the changeset viewer.