Ignore:
Timestamp:
2009-08-11T12:09:19+02:00 (11 years ago)
Author:
ctlod
Message:

Doctor naming of OPA namelist variables , see ticket: #526

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r1581 r1601  
    2929   !!                   namrun namelist parameters 
    3030   !!---------------------------------------------------------------------- 
    31    CHARACTER(len=16)  ::   cexper        = "exp0"      !: experiment name used for output filename 
     31   CHARACTER(len=16)  ::   cn_exp        = "exp0"      !: experiment name used for output filename 
    3232   CHARACTER(len=32)  ::   cn_ocerst_in  = "restart"   !: suffix of ocean restart name (input) 
    3333   CHARACTER(len=32)  ::   cn_ocerst_out = "restart"   !: suffix of ocean restart name (output) 
    3434   LOGICAL            ::   ln_rstart     = .FALSE.     !: start from (F) rest or (T) a restart file 
    35    INTEGER            ::   no            = 0           !: job number 
    36    INTEGER            ::   nrstdt        = 0           !: control of the time step (0, 1 or 2) 
     35   INTEGER            ::   nn_no         = 0           !: job number 
     36   INTEGER            ::   nn_rstctl     = 0           !: control of the time step (0, 1 or 2) 
    3737   INTEGER            ::   nn_rstssh     = 0           !: hand made initilization of ssh or not (1/0) 
    38    INTEGER            ::   nit000        = 1           !: index of the first time step 
    39    INTEGER            ::   nitend        = 10          !: index of the last time step 
    40    INTEGER            ::   ndate0        = 961115      !: initial calendar date aammjj 
    41    INTEGER            ::   nleapy        = 0           !: Leap year calendar flag (0/1 or 30) 
    42    INTEGER            ::   ninist        = 0           !: initial state output flag (0/1) 
     38   INTEGER            ::   nn_it000      = 1           !: index of the first time step 
     39   INTEGER            ::   nn_itend      = 10          !: index of the last time step 
     40   INTEGER            ::   nn_date0      = 961115      !: initial calendar date aammjj 
     41   INTEGER            ::   nn_leapy      = 0           !: Leap year calendar flag (0/1 or 30) 
     42   INTEGER            ::   nn_istate     = 0           !: initial state output flag (0/1) 
     43   INTEGER            ::   nn_write      =   10        !: model standard output frequency 
     44   INTEGER            ::   nn_stock      =   10        !: restart file frequency 
    4345   LOGICAL            ::   ln_dimgnnn    = .FALSE.     !: type of dimgout. (F): 1 file for all proc 
    4446                                                       !:                  (T): 1 file per proc 
     
    4648   LOGICAL            ::   ln_clobber    = .FALSE.     !: clobber (overwrite) an existing file 
    4749   INTEGER            ::   nn_chunksz    = 0           !: chunksize (bytes) for NetCDF file (working only with iom_nf90 routines) 
     50 
     51   !! conversion of DOCTOR norm namelist name into model name 
     52   !! (this should disappear in a near futur) 
     53 
     54   CHARACTER(len=16)  ::   cexper                      !: experiment name used for output filename 
     55   INTEGER            ::   no                          !: job number 
     56   INTEGER            ::   nrstdt                      !: control of the time step (0, 1 or 2) 
     57   INTEGER            ::   nit000                      !: index of the first time step 
     58   INTEGER            ::   nitend                      !: index of the last time step 
     59   INTEGER            ::   ndate0                      !: initial calendar date aammjj 
     60   INTEGER            ::   nleapy                      !: Leap year calendar flag (0/1 or 30) 
     61   INTEGER            ::   ninist                      !: initial state output flag (0/1) 
     62   INTEGER            ::   nwrite                      !: model standard output frequency 
     63   INTEGER            ::   nstock                      !: restart file frequency 
     64 
    4865   !!---------------------------------------------------------------------- 
    4966   !! was in restart but moved here because of the OFF line... better solution should be found... 
    5067   !!---------------------------------------------------------------------- 
    5168   INTEGER            ::   nitrst                 !: time step at which restart file should be written 
     69 
    5270   !!---------------------------------------------------------------------- 
    5371   !!                    output monitoring 
    5472   !!---------------------------------------------------------------------- 
    5573   LOGICAL            ::   ln_ctl     = .FALSE.   !: run control for debugging 
    56    INTEGER            ::   nstock     =   10      !: restart file frequency 
    57    INTEGER            ::   nprint     =    0      !: level of print (0 no print) 
    58    INTEGER            ::   nwrite     =   10      !: restart file frequency 
    59    INTEGER            ::   nictls     =    0      !: Start i indice for the SUM control 
    60    INTEGER            ::   nictle     =    0      !: End   i indice for the SUM control 
    61    INTEGER            ::   njctls     =    0      !: Start j indice for the SUM control 
    62    INTEGER            ::   njctle     =    0      !: End   j indice for the SUM control 
    63    INTEGER            ::   isplt      =    1      !: number of processors following i 
    64    INTEGER            ::   jsplt      =    1      !: number of processors following j 
     74   INTEGER            ::   nn_print     =    0    !: level of print (0 no print) 
     75   INTEGER            ::   nn_ictls     =    0    !: Start i indice for the SUM control 
     76   INTEGER            ::   nn_ictle     =    0    !: End   i indice for the SUM control 
     77   INTEGER            ::   nn_jctls     =    0    !: Start j indice for the SUM control 
     78   INTEGER            ::   nn_jctle     =    0    !: End   j indice for the SUM control 
     79   INTEGER            ::   nn_isplt      =    1   !: number of processors following i 
     80   INTEGER            ::   nn_jsplt      =    1   !: number of processors following j 
     81   INTEGER            ::   nn_bench     =    0    !: benchmark parameter (0/1) 
     82   INTEGER            ::   nn_bit_cmp   =    0    !: bit reproducibility  (0/1) 
     83 
     84   !                                              !: OLD namelist names 
     85   INTEGER ::   nprint, nictls, nictle, njctls, njctle, isplt, jsplt, nbench, nbit_cmp    
     86 
    6587   INTEGER            ::   ijsplt     =    1      !: nb of local domain = nb of processors 
    66    INTEGER            ::   nbench     =    0      !: benchmark parameter (0/1) 
    67    INTEGER            ::   nbit_cmp   =    0      !: bit reproducibility  (0/1) 
     88 
    6889   !!---------------------------------------------------------------------- 
    6990   !!                        logical units 
     
    84105   !!                          Run control   
    85106   !!---------------------------------------------------------------------- 
    86  
    87107   INTEGER            ::   nstop = 0                !: error flag (=number of reason for a premature stop run) 
    88108   INTEGER            ::   nwarn = 0                !: warning flag (=number of warning found during the run) 
Note: See TracChangeset for help on using the changeset viewer.