Ignore:
Timestamp:
2015-06-05T13:34:40+02:00 (6 years ago)
Author:
cetlod
Message:

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : merge in dev_r5171_CNRS_LIM3_seaicebgc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

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