New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5580 for branches/UKMO/dev_r5107_xios_initialize_toyoce/NEMOGCM/NEMO/TOP_SRC/trcnam.F90 – NEMO

Ignore:
Timestamp:
2015-07-10T10:08:01+02:00 (9 years ago)
Author:
davestorkey
Message:

Finish upgrade of UKMO/dev_r5107_xios_initialize_toyoce branch to trunk revision 5518. (Previous commit only upgraded part of the repository).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_xios_initialize_toyoce/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r5277 r5580  
    147147 
    148148 
     149      ! Call the ice module for tracers 
     150      ! ------------------------------- 
     151      CALL trc_nam_ice 
     152 
    149153      ! namelist of SMS 
    150154      ! ---------------       
     
    175179      !!--------------------------------------------------------------------- 
    176180      NAMELIST/namtrc_run/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, ln_top_euler, & 
    177         &                  cn_trcrst_in, cn_trcrst_out 
     181        &                  cn_trcrst_indir, cn_trcrst_outdir, cn_trcrst_in, cn_trcrst_out 
     182 
    178183 
    179184      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     
    215220    END SUBROUTINE trc_nam_run 
    216221 
     222   SUBROUTINE trc_nam_ice 
     223      !!--------------------------------------------------------------------- 
     224      !!                     ***  ROUTINE trc_nam_ice *** 
     225      !! 
     226      !! ** Purpose :   Read the namelist for the ice effect on tracers 
     227      !! 
     228      !! ** Method  : - 
     229      !! 
     230      !!--------------------------------------------------------------------- 
     231      ! --- Variable declarations --- ! 
     232      INTEGER :: jn      ! dummy loop indices 
     233      INTEGER :: ios     ! Local integer output status for namelist read 
     234 
     235      ! --- Namelist declarations --- ! 
     236      TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 
     237      NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 
     238 
     239      IF(lwp) THEN 
     240         WRITE(numout,*) 
     241         WRITE(numout,*) 'trc_nam_ice : Read the namelist for trc_ice' 
     242         WRITE(numout,*) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 
     243      ENDIF 
     244 
     245      IF( nn_timing == 1 )  CALL timing_start('trc_nam_ice') 
     246 
     247      ! 
     248      REWIND( numnat_ref )              ! Namelist namtrc_ice in reference namelist : Passive tracer input data 
     249      READ  ( numnat_ref, namtrc_ice, IOSTAT = ios, ERR = 901) 
     250 901  IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ', lwp ) 
     251 
     252      REWIND( numnat_cfg )              ! Namelist namtrc_ice in configuration namelist : Pisces external sources of nutrients 
     253      READ  ( numnat_cfg, namtrc_ice, IOSTAT = ios, ERR = 902 ) 
     254 902  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist', lwp ) 
     255 
     256      IF( lwp ) THEN 
     257         WRITE(numout,*) ' ' 
     258         WRITE(numout,*) ' Sea ice tracers option (nn_ice_tr) : ', nn_ice_tr 
     259         WRITE(numout,*) ' ' 
     260      ENDIF 
     261 
     262      ! Assign namelist stuff 
     263      DO jn = 1, jptra 
     264         trc_ice_ratio(jn)  = sn_tri_tracer(jn)%trc_ratio 
     265         trc_ice_prescr(jn) = sn_tri_tracer(jn)%trc_prescr 
     266         cn_trc_o      (jn) = sn_tri_tracer(jn)%ctrc_o 
     267      END DO 
     268 
     269      IF( nn_timing == 1 )   CALL timing_stop('trc_nam_ice') 
     270      ! 
     271   END SUBROUTINE trc_nam_ice 
    217272 
    218273   SUBROUTINE trc_nam_trc 
Note: See TracChangeset for help on using the changeset viewer.