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 3875 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM – NEMO

Ignore:
Timestamp:
2013-04-18T16:38:06+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step? 1, see ticket:#1074

Location:
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r3680 r3875  
    107107   !!                        logical units 
    108108   !!---------------------------------------------------------------------- 
    109    INTEGER ::   numstp      =   -1      !: logical unit for time step 
    110    INTEGER ::   numtime     =   -1      !: logical unit for timing 
    111    INTEGER ::   numout      =    6      !: logical unit for output print 
    112    INTEGER ::   numnam      =   -1      !: logical unit for namelist 
    113    INTEGER ::   numnam_ice  =   -1      !: logical unit for ice namelist 
    114    INTEGER ::   numevo_ice  =   -1      !: logical unit for ice variables (temp. evolution) 
    115    INTEGER ::   numsol      =   -1      !: logical unit for solver statistics 
    116    INTEGER ::   numdct_in   =   -1      !: logical unit for transports computing 
    117    INTEGER ::   numdct_vol  =   -1      !: logical unit for voulume transports output 
    118    INTEGER ::   numdct_heat =   -1      !: logical unit for heat    transports output 
    119    INTEGER ::   numdct_salt =   -1      !: logical unit for salt    transports output 
    120    INTEGER ::   numfl      =   -1      !: logical unit for floats ascii output 
    121    INTEGER ::   numflo     =   -1      !: logical unit for floats ascii output 
     109   INTEGER ::   numstp          =   -1      !: logical unit for time step 
     110   INTEGER ::   numtime         =   -1      !: logical unit for timing 
     111   INTEGER ::   numout          =    6      !: logical unit for output print 
     112   INTEGER ::   numnam_ref      =   -1      !: logical unit for reference namelist 
     113   INTEGER ::   numnam_cfg      =   -1      !: logical unit for configuration specific namelist 
     114   INTEGER ::   numond          =    7      !: logical unit for Output Namelist Dynamics 
     115   INTEGER ::   numnam_ice_ref  =   -1      !: logical unit for ice reference namelist 
     116   INTEGER ::   numnam_ice_cfg  =   -1      !: logical unit for ice reference namelist 
     117   INTEGER ::   numoni          =    8      !: logical unit for Output Namelist Ice 
     118   INTEGER ::   numevo_ice      =   -1      !: logical unit for ice variables (temp. evolution) 
     119   INTEGER ::   numsol          =   -1      !: logical unit for solver statistics 
     120   INTEGER ::   numdct_in       =   -1      !: logical unit for transports computing 
     121   INTEGER ::   numdct_vol      =   -1      !: logical unit for voulume transports output 
     122   INTEGER ::   numdct_heat     =   -1      !: logical unit for heat    transports output 
     123   INTEGER ::   numdct_salt     =   -1      !: logical unit for salt    transports output 
     124   INTEGER ::   numfl           =   -1      !: logical unit for floats ascii output 
     125   INTEGER ::   numflo          =   -1      !: logical unit for floats ascii output 
    122126 
    123127   !!---------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r3680 r3875  
    156156         WRITE(numout,*) 
    157157         SELECT CASE ( jprstlib ) 
    158          CASE ( jpnf90    )   ;   WRITE(numout,*) 'rst_read : read oce NetCDF restart file' 
     158         CASE ( jpnf90    )   ;   WRITE(numout,*) 'rst_read : read oce NetCDF restart file ',TRIM(cn_ocerst_in)//'.nc' 
    159159         CASE ( jprstdimg )   ;   WRITE(numout,*) 'rst_read : read oce binary restart file' 
    160160         END SELECT 
Note: See TracChangeset for help on using the changeset viewer.