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/TOP_SRC/trcdia.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/TOP_SRC/trcdia.F90

    r1830 r1846  
    112112      INTEGER ::   jn 
    113113      LOGICAL ::   ll_print = .FALSE. 
    114       CHARACTER (len=40) :: clhstnam, clop 
     114      CHARACTER (len=72) :: clhstnam, clop 
    115115      CHARACTER (len=20) :: cltra, cltrau 
    116116      CHARACTER (len=80) :: cltral 
    … …  
    246246      !! 
    247247      LOGICAL ::   ll_print = .FALSE. 
    248       CHARACTER (len=40) ::   clhstnam, clop 
     248      CHARACTER (len=72) ::   clhstnam, clop 
    249249      CHARACTER (len=20) ::   cltra, cltrau 
    250250      CHARACTER (len=80) ::   cltral 
    … …  
    479479      !! 
    480480      LOGICAL ::   ll_print = .FALSE. 
    481       CHARACTER (len=40) ::   clhstnam, clop 
     481      CHARACTER (len=72) ::   clhstnam, clop 
    482482      CHARACTER (len=20) ::   cltra, cltrau 
    483483      CHARACTER (len=80) ::   cltral 
    … …  
    629629      !! 
    630630      LOGICAL ::   ll_print = .FALSE. 
    631       CHARACTER (len=40) ::   clhstnam, clop 
     631      CHARACTER (len=72) ::   clhstnam, clop 
    632632      CHARACTER (len=20) ::   cltra, cltrau 
    633633      CHARACTER (len=80) ::   cltral 
Note: See TracChangeset for help on using the changeset viewer.