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 1846 for branches/CMIP5_IPSL/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2010-04-21T14:26:53+02:00 (14 years ago)
Author:
mafoipsl
Message:

Increase length of characters string to allow long name of experiments.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/IOM/iom.F90

    r1830 r1846  
    989989      CHARACTER(len=6),DIMENSION( 9) ::   clsuff                   ! suffix name 
    990990      CHARACTER(len=1),DIMENSION( 3) ::   clgrd                    ! suffix name 
    991       CHARACTER(len=50)              ::   clname                   ! file name 
     991      CHARACTER(len=72)              ::   clname                   ! file name 
    992992      CHARACTER(len=1)               ::   cl1                      ! 1 character 
    993993      CHARACTER(len=2)               ::   cl2                      ! 1 character 
    … …  
    10821082!!$      CHARACTER(len=1),DIMENSION(4) ::   clgrd = (/ 'T', 'U', 'V', 'W' /)   ! suffix name 
    10831083      CHARACTER(len=1),DIMENSION(1) ::   clgrd = (/ 'T' /)        ! suffix name 
    1084       CHARACTER(len=50)             ::   clname                   ! file name 
     1084      CHARACTER(len=72)             ::   clname                   ! file name 
    10851085      CHARACTER(len=1)              ::   cl1                      ! 1 character 
    10861086      CHARACTER(len=6)              ::   clon,clat                ! name of longitude, latitude 
Note: See TracChangeset for help on using the changeset viewer.