Ignore:
Timestamp:
2017-12-26T17:32:56+01:00 (3 years ago)
Author:
gm
Message:

dev_merge_2017: all SRC: finalize the removal of useless warning when reading namelist_cfg + remove all nn_closea + nn_msh replaced by a logical

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r9167 r9169  
    2424   ! 
    2525   IF( .NOT. Agrif_Root() ) THEN 
    26       jpni = Agrif_Parent(jpni) 
    27       jpnj = Agrif_Parent(jpnj) 
     26      jpni  = Agrif_Parent(jpni) 
     27      jpnj  = Agrif_Parent(jpnj) 
    2828      jpnij = Agrif_Parent(jpnij) 
    29       jpiglo  = nbcellsx + 2 + 2*nbghostcells 
    30       jpjglo  = nbcellsy + 2 + 2*nbghostcells 
    31       jpi     = ( jpiglo-2*nn_hls + (jpni-1+0) ) / jpni + 2*nn_hls 
    32       jpj     = ( jpjglo-2*nn_hls + (jpnj-1+0) ) / jpnj + 2*nn_hls 
     29      jpiglo = nbcellsx + 2 + 2*nbghostcells 
     30      jpjglo = nbcellsy + 2 + 2*nbghostcells 
     31      jpi    = ( jpiglo-2*nn_hls + (jpni-1+0) ) / jpni + 2*nn_hls 
     32      jpj    = ( jpjglo-2*nn_hls + (jpnj-1+0) ) / jpnj + 2*nn_hls 
    3333! JC: change to allow for different vertical levels 
    3434!     jpk is already set 
     
    3636!     hold parent grid vertical levels number (set earlier) 
    3737!      jpk     = jpkglo  
    38       jpim1   = jpi-1  
    39       jpjm1   = jpj-1  
    40       jpkm1   = MAX( 1, jpk-1 )                                          
    41       jpij    = jpi*jpj  
    42       nperio  = 0 
    43       jperio  = 0 
     38      jpim1  = jpi-1  
     39      jpjm1  = jpj-1  
     40      jpkm1  = MAX( 1, jpk-1 )                                          
     41      jpij   = jpi*jpj  
     42      nperio = 0 
     43      jperio = 0 
    4444   ENDIF 
    4545   ! 
     
    780780   REWIND( numnam_ref )              ! Namelist namagrif in reference namelist : AGRIF zoom 
    781781   READ  ( numnam_ref, namagrif, IOSTAT = ios, ERR = 901) 
    782 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in reference namelist', lwp ) 
    783  
     782901 IF( ios /= 0 )   CALL ctl_nam ( ios , 'namagrif in reference namelist', lwp ) 
    784783   REWIND( numnam_cfg )              ! Namelist namagrif in configuration namelist : AGRIF zoom 
    785784   READ  ( numnam_cfg, namagrif, IOSTAT = ios, ERR = 902 ) 
    786 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist', lwp ) 
     785902 IF( ios >  0 )  CALL ctl_nam ( ios , 'namagrif in configuration namelist', lwp ) 
    787786   IF(lwm) WRITE ( numond, namagrif ) 
    788787   ! 
     
    796795      WRITE(numout,*) '      use special values for dynamics   ln_spc_dyn    = ', ln_spc_dyn 
    797796      WRITE(numout,*) '      check bathymetry                  ln_chk_bathy  = ', ln_chk_bathy 
    798       WRITE(numout,*)  
    799797   ENDIF 
    800798   ! 
Note: See TracChangeset for help on using the changeset viewer.