Changeset 1846


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

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

Location:
branches/CMIP5_IPSL/NEMO
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • branches/CMIP5_IPSL/NEMO/C1D_SRC/diawri_c1d.F90

    r1715 r1846  
    7171      !! 
    7272      LOGICAL ::   ll_print = .FALSE.                ! =T print and flush numout 
    73       CHARACTER (len=40) ::   clhstnam, clop, clmx   ! temporary names 
     73      CHARACTER (len=72) ::   clhstnam, clop, clmx   ! temporary names 
    7474      INTEGER ::   inum = 11                         ! temporary logical unit 
    7575      INTEGER ::   ji, jj, ik                        ! dummy loop indices 
  • branches/CMIP5_IPSL/NEMO/LIM_SRC_2/limwri_2.F90

    r1715 r1846  
    8888      !! 
    8989      INTEGER  ::   ji, jj, jf                      ! dummy loop indices 
    90       CHARACTER(len = 40)  ::   clhstnam, clop 
     90      CHARACTER(len = 72)  ::   clhstnam, clop 
    9191      REAL(wp) ::   zsto, zjulian, zout,   &  ! temporary scalars 
    9292         &          zindh, zinda, zindb, ztmu 
  • 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      !!---------------------------------------------------------------------- 
  • branches/CMIP5_IPSL/NEMO/TOP_SRC/SED/sedwri.F90

    r1334 r1846  
    3434      INTEGER, INTENT(in) :: kt 
    3535 
    36       CHARACTER(len = 60)  ::  clhstnam, clop 
     36      CHARACTER(len = 72)  ::  clhstnam, clop 
    3737      INTEGER , SAVE :: nised, nhorised, ndimt52, ndimt51, ndepsed 
    3838      REAL(wp), SAVE :: zjulian 
  • branches/CMIP5_IPSL/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1685 r1846  
    4343   PUBLIC trd_mld_trc_init 
    4444 
    45    CHARACTER (LEN=40) ::  clhstnam                                ! name of the trends NetCDF file 
     45   CHARACTER (len=72) ::  clhstnam                                ! name of the trends NetCDF file 
    4646   INTEGER ::   nmoymltrd 
    4747   INTEGER ::   ndextrd1(jpi*jpj) 
  • 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 
  • branches/CMIP5_IPSL/NEMO/TOP_SRC/trcwri.F90

    r1830 r1846  
    6767      CHARACTER (len=20)    :: cltra, cltras 
    6868#if defined key_off_tra 
    69       CHARACTER (len=40) :: clhstnam 
     69      CHARACTER (len=72) :: clhstnam 
    7070      INTEGER ::   inum = 11            ! temporary logical unit 
    7171#endif 
Note: See TracChangeset for help on using the changeset viewer.