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 – 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.

Location:
branches/CMIP5_IPSL/NEMO/OPA_SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diagap.F90

    r1715 r1846  
    7272      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    7373      INTEGER ::   it, itmod    ! time step indices 
    74       CHARACTER (len=40) ::   clhstnam 
     74      CHARACTER (len=72) ::   clhstnam 
    7575      CHARACTER (len=40) ::   clop 
    7676      REAL(wp) ::   zbt, zdt    ! temporary scalar 

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diaptr.F90

    r1775 r1846  
    611611      INTEGER, SAVE, DIMENSION (jpj)     :: ndex_h, ndex_h_atl_30, ndex_h_pac_30, ndex_h_ind_30, ndex_h_ipc_30 
    612612 
    613       CHARACTER (len=40)       ::   clhstnam, clop, clop_once, cl_comment   ! temporary names 
     613      CHARACTER (len=72)       ::   clhstnam, clop, clop_once, cl_comment   ! temporary names 
    614614      INTEGER                  ::   iline, it, itmod, ji, jj, jk            ! 
    615615#if defined key_iomput 

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90

    r1756 r1846  
    197197      !! * Local declarations 
    198198      LOGICAL ::   ll_print = .FALSE.    ! =T print and flush numout 
    199       CHARACTER (len=40) ::           & 
     199      CHARACTER (len=72) ::           & 
    200200         clhstnam, clop, clmx            ! temporary names 
    201201      INTEGER ::   inum = 11             ! temporary logical unit 
    … …  
    613613 
    614614      !! * Local declarations 
    615       CHARACTER (len=32) :: clname 
     615      CHARACTER (len=72) :: clname 
    616616      CHARACTER (len=40) :: clop 
    617617      INTEGER  ::   & 

  • 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 

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/TRD/trdmld.F90

    r1715 r1846  
    4545   PUBLIC   trd_mld_zint   ! routine called by tracers routines 
    4646 
    47    CHARACTER (LEN=40) ::  clhstnam         ! name of the trends NetCDF file 
     47   CHARACTER (len=72) ::  clhstnam         ! name of the trends NetCDF file 
    4848   INTEGER ::   nh_t, nmoymltrd 
    4949   INTEGER ::   nidtrd, ndextrd1(jpi*jpj) 

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/TRD/trdvor.F90

    r1715 r1846  
    497497      !!---------------------------------------------------------------------- 
    498498      REAL(wp) ::   zjulian, zsto, zout 
    499       CHARACTER (len=40) ::   clhstnam 
     499      CHARACTER (len=72) ::   clhstnam 
    500500      CHARACTER (len=40) ::   clop 
    501501      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.