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

Changeset 15708


Ignore:
Timestamp:
2022-02-17T15:30:41+01:00 (2 years ago)
Author:
frrh
Message:

Extend file names to 100 chars

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

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/ICE/icerst.F90

    r11536 r15708  
    4949      ! 
    5050      CHARACTER(len=20)   ::   clkt     ! ocean time-step define as a character 
    51       CHARACTER(len=50)   ::   clname   ! ice output restart file name 
     51      CHARACTER(len=100)  ::   clname   ! ice output restart file name 
    5252      CHARACTER(len=256)  ::   clpath   ! full path to ice output restart file  
    5353      !!---------------------------------------------------------------------- 

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

    r11536 r15708  
    6060      !! 
    6161      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    62       CHARACTER(LEN=50)   ::   clname   ! ocean output restart file name 
     62      CHARACTER(LEN=100)  ::   clname   ! ocean output restart file name 
    6363      CHARACTER(lc)       ::   clpath   ! full path to ocean output restart file 
    64       CHARACTER(LEN=52)   ::   clpname   ! ocean output restart file name including prefix for AGRIF 
     64      CHARACTER(LEN=100)  ::   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/OCE/STO/stopar.F90

    r11536 r15708  
    746746      REAL(KIND=8)        ::   zrseed(4)           ! RNG seeds in real type (with same bits to save in restart) 
    747747      CHARACTER(LEN=20)   ::   clkt                ! ocean time-step defined as a character 
    748       CHARACTER(LEN=50)   ::   clname              ! restart file name 
     748      CHARACTER(LEN=100)  ::   clname              ! restart file name 
    749749      CHARACTER(LEN=9)    ::   clsto2d='sto2d_000' ! stochastic parameter variable name 
    750750      CHARACTER(LEN=9)    ::   clsto3d='sto3d_000' ! stochastic parameter variable name 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/OCE/TRD/trdmxl_oce.F90

    r10425 r15708  
    4343   !! Arrays used for diagnosing mixed-layer trends  
    4444   !!--------------------------------------------------------------------- 
    45    CHARACTER(LEN=80) , PUBLIC :: clname, ctrd(jpltrd+1,2) 
     45   CHARACTER(LEN=100) , PUBLIC :: clname, ctrd(jpltrd+1,2) 
    4646 
    4747   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   nmxl   !: mixed layer depth indexes  

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/OCE/TRD/trdmxl_rst.F90

    r11536 r15708  
    4343      INTEGER ::   jk                 ! loop indice 
    4444      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    45       CHARACTER(LEN=50)   ::   clname   ! output restart file name 
     45      CHARACTER(LEN=100)  ::   clname   ! output restart file name 
    4646      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
    4747      !!-------------------------------------------------------------------------------- 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/TOP/PISCES/SED/sedrst.F90

    r11536 r15708  
    4040      ! 
    4141      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step define as a character 
    42       CHARACTER(LEN=50)   ::   clname   ! trc output restart file name 
     42      CHARACTER(LEN=100)  ::   clname   ! trc output restart file name 
    4343      CHARACTER(LEN=256)  ::   clpath   ! full path to ocean output restart file 
    4444      !!---------------------------------------------------------------------- 
    … …  
    215215      INTEGER  :: ji, jj, jk, jn 
    216216      REAL(wp), DIMENSION(1) ::  zinfo 
    217       CHARACTER(len=50) :: clname 
     217      CHARACTER(len=100):: clname 
    218218      CHARACTER(len=20) :: cltra, name1  
    219219      REAL(wp), DIMENSION(jpoce,jpksed)   :: zdta    

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

    r10425 r15708  
    3838      ! 
    3939      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    40       CHARACTER(LEN=50)   ::   clname   ! output restart file name 
     40      CHARACTER(LEN=100)  ::   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

    r10425 r15708  
    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=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) 
     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) 
    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=80) :: clname_trc, ctrd_trc(jpltrd_trc+1,2) 
     62   CHARACTER(LEN=100) :: clname_trc, ctrd_trc(jpltrd_trc+1,2) 
    6363 
    6464   INTEGER, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   & 

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

    r11536 r15708  
    4949      ! 
    5050      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step define as a character 
    51       CHARACTER(LEN=50)   ::   clname   ! trc output restart file name 
     51      CHARACTER(LEN=100)  ::   clname   ! trc output restart file name 
    5252      CHARACTER(LEN=256)  ::   clpath   ! full path to ocean output restart file 
    5353      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.