Changeset 79


Ignore:
Timestamp:
07/20/13 01:20:34 (11 years ago)
Author:
smasson
Message:

increase character size in iom.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r65 r79  
    11021102      CHARACTER(len=6),DIMENSION( 8) ::   clsuff                   ! suffix name 
    11031103      CHARACTER(len=1),DIMENSION( 3) ::   clgrd                    ! suffix name 
    1104       CHARACTER(len=50)              ::   clname                   ! file name 
     1104      CHARACTER(len=100)             ::   clname                   ! file name 
    11051105      CHARACTER(len=1)               ::   cl1                      ! 1 character 
    11061106      CHARACTER(len=2)               ::   cl2                      ! 1 character 
    … …  
    11961196!!$      CHARACTER(len=1),DIMENSION(4) ::   clgrd = (/ 'T', 'U', 'V', 'W' /)   ! suffix name 
    11971197      CHARACTER(len=1),DIMENSION(1) ::   clgrd = (/ 'T' /)        ! suffix name 
    1198       CHARACTER(len=50)             ::   clname                   ! file name 
     1198      CHARACTER(len=100)            ::   clname                   ! file name 
    11991199      CHARACTER(len=1)              ::   cl1                      ! 1 character 
    12001200      CHARACTER(len=6)              ::   clon,clat                ! name of longitude, latitude 
Note: See TracChangeset for help on using the changeset viewer.