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

Changeset 15709


Ignore:
Timestamp:
2022-02-18T10:13:46+01:00 (2 years ago)
Author:
frrh
Message:

reverse some unneeded changes.

Location:
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/OCE/IOM/restart.F90

    r15708 r15709  
    6262      CHARACTER(LEN=100)  ::   clname   ! ocean output restart file name 
    6363      CHARACTER(lc)       ::   clpath   ! full path to ocean output restart file 
    64       CHARACTER(LEN=100)  ::   clpname   ! ocean output restart file name including prefix for AGRIF 
     64      CHARACTER(LEN=52)   ::   clpname   ! ocean output restart file name including prefix for AGRIF 
    6565      CHARACTER(LEN=256)  ::   clinfo    ! info character 
    6666      !!---------------------------------------------------------------------- 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/TOP/TRP/trdmxl_trc_rst.F90

    r15708 r15709  
    3838      ! 
    3939      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    40       CHARACTER(LEN=100)  ::   clname   ! output restart file name 
     40      CHARACTER(LEN=50)   ::   clname   ! output restart file name 
    4141      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
    4242      CHARACTER (len=35) :: charout 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/TOP/TRP/trdtrc_oce.F90

    r15708 r15709  
    2020   LOGICAL  ::    ln_trdmxl_trc_instant       !: flag to diagnose inst./mean ML trc trends 
    2121   LOGICAL  ::    ln_trdmxl_trc_restart       !: flag to restart mixed-layer trc diagnostics 
    22    CHARACTER(len=100) ::  cn_trdrst_trc_in    !: suffix of pass. tracer restart name (input) 
    23    CHARACTER(len=100) ::  cn_trdrst_trc_out   !: suffix of pass. tracer restart name (output) 
     22   CHARACTER(len=50) ::  cn_trdrst_trc_in     !: suffix of pass. tracer restart name (input) 
     23   CHARACTER(len=50) ::  cn_trdrst_trc_out    !: suffix of pass. tracer restart name (output) 
    2424   LOGICAL, DIMENSION(:), ALLOCATABLE ::   ln_trdtrc   !: large trends diagnostic to write or not (namelist) 
    2525 
    … …  
    6060   !! Arrays used for diagnosing mixed-layer trends  
    6161   !!--------------------------------------------------------------------- 
    62    CHARACTER(LEN=100) :: clname_trc, ctrd_trc(jpltrd_trc+1,2) 
     62   CHARACTER(LEN=80) :: clname_trc, ctrd_trc(jpltrd_trc+1,2) 
    6363 
    6464   INTEGER, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   & 
Note: See TracChangeset for help on using the changeset viewer.