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 4154 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90 – NEMO

Ignore:
Timestamp:
2013-11-05T13:52:36+01:00 (10 years ago)
Author:
cetlod
Message:

dev_LOCEAN_2013: minor corrections

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r4152 r4154  
    5656      !!                ( (PISCES, CFC, MY_TRC ) 
    5757      !!--------------------------------------------------------------------- 
     58      INTEGER  ::   jn                  ! dummy loop indice 
    5859      !                                        !   Parameters of the run  
    5960      IF( .NOT. lk_offline ) CALL trc_nam_run 
    … …  
    176177        &                  cn_trcrst_in, cn_trcrst_out 
    177178 
     179      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     180 
    178181      !!--------------------------------------------------------------------- 
    179182 
    … …  
    193196      READ  ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 
    194197902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 
    195       WRITE ( numont, namtrc ) 
     198      WRITE ( numont, namtrc_run ) 
    196199 
    197200      !  computes the first time step of tracer model 
    … …  
    219222      !! 
    220223      !!--------------------------------------------------------------------- 
    221       INTEGER ::  jn 
    222       ! Definition of a tracer as a structure 
    223224      TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer  ! type of tracer for saving if not key_iomput 
    224225      !! 
    225226      NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo 
    226  
     227   
     228      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     229      INTEGER  ::   jn                  ! dummy loop indice 
    227230      !!--------------------------------------------------------------------- 
    228231      IF(lwp) WRITE(numout,*) 
    … …  
    269272      NAMELIST/namtrc_dia/ ln_diatrc, ln_diabio, nn_writedia, nn_writebio 
    270273 
     274      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    271275      !!--------------------------------------------------------------------- 
    272276 
Note: See TracChangeset for help on using the changeset viewer.