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 – NEMO

Changeset 4154


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

dev_LOCEAN_2013: minor corrections

Location:
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r4064 r4154  
    6767      INTEGER  :: ji,jj,jk      ! dummy indices 
    6868      INTEGER  :: ierr                                ! allocation error status 
     69      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    6970      REAL(wp), DIMENSION(:,:,:), POINTER :: zfse3t, zfse3u, zfse3v, zfse3w 
    7071 
    7172      NAMELIST/namcrs/ nn_factx, nn_facty, nn_binref, nn_msh_crs, nn_crs_kz, ln_crs_wn 
    72  
    73  
    7473      !!---------------------------------------------------------------------- 
    7574      ! 
     
    8584     !--------------------------------------------------------- 
    8685     ! 
    87      REWIND( numnam )            ! Read Namelist namtra_qsr : ratio and length of penetration 
    88      READ  ( numnam, namcrs )        ! Namelist namcrs : Grid-coarsening utility namelist 
     86 
     87      REWIND( numnam_ref )              ! Namelist namrun in reference namelist : Parameters of the run 
     88      READ  ( numnam_ref, namcrs, IOSTAT = ios, ERR = 901) 
     89901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in reference namelist', lwp ) 
     90 
     91      REWIND( numnam_cfg )              ! Namelist namrun in configuration namelist : Parameters of the run 
     92      READ  ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 
     93902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 
     94      WRITE ( numond, namcrs ) 
     95 
    8996     IF(lwp) THEN 
    9097        WRITE(numout,*) 
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

    r4147 r4154  
    4242   INTEGER , PUBLIC ::   nn_baro         !: number of barotropic time steps (key_dynspg_ts) 
    4343   INTEGER , PUBLIC ::   nn_closea       !: =0 suppress closed sea/lake from the ORCA domain or not (=1) 
     44   LOGICAL , PUBLIC ::   ln_crs          !: Apply grid coarsening to dynamical model output or online passive tracers 
     45 
    4446   !! Horizontal grid parameters for domhgr 
    4547   !! ===================================== 
  • 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.