Changeset 1846 for branches/CMIP5_IPSL
- Timestamp:
- 2010-04-21T14:26:53+02:00 (14 years ago)
- Location:
- branches/CMIP5_IPSL/NEMO
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/C1D_SRC/diawri_c1d.F90
r1715 r1846 71 71 !! 72 72 LOGICAL :: ll_print = .FALSE. ! =T print and flush numout 73 CHARACTER (len= 40) :: clhstnam, clop, clmx ! temporary names73 CHARACTER (len=72) :: clhstnam, clop, clmx ! temporary names 74 74 INTEGER :: inum = 11 ! temporary logical unit 75 75 INTEGER :: ji, jj, ik ! dummy loop indices -
branches/CMIP5_IPSL/NEMO/LIM_SRC_2/limwri_2.F90
r1715 r1846 88 88 !! 89 89 INTEGER :: ji, jj, jf ! dummy loop indices 90 CHARACTER(len = 40) :: clhstnam, clop90 CHARACTER(len = 72) :: clhstnam, clop 91 91 REAL(wp) :: zsto, zjulian, zout, & ! temporary scalars 92 92 & zindh, zinda, zindb, ztmu -
branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diagap.F90
r1715 r1846 72 72 INTEGER :: ji, jj, jk ! dummy loop indices 73 73 INTEGER :: it, itmod ! time step indices 74 CHARACTER (len= 40) :: clhstnam74 CHARACTER (len=72) :: clhstnam 75 75 CHARACTER (len=40) :: clop 76 76 REAL(wp) :: zbt, zdt ! temporary scalar -
branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diaptr.F90
r1775 r1846 611 611 INTEGER, SAVE, DIMENSION (jpj) :: ndex_h, ndex_h_atl_30, ndex_h_pac_30, ndex_h_ind_30, ndex_h_ipc_30 612 612 613 CHARACTER (len= 40) :: clhstnam, clop, clop_once, cl_comment ! temporary names613 CHARACTER (len=72) :: clhstnam, clop, clop_once, cl_comment ! temporary names 614 614 INTEGER :: iline, it, itmod, ji, jj, jk ! 615 615 #if defined key_iomput -
branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90
r1756 r1846 197 197 !! * Local declarations 198 198 LOGICAL :: ll_print = .FALSE. ! =T print and flush numout 199 CHARACTER (len= 40) :: &199 CHARACTER (len=72) :: & 200 200 clhstnam, clop, clmx ! temporary names 201 201 INTEGER :: inum = 11 ! temporary logical unit … … 613 613 614 614 !! * Local declarations 615 CHARACTER (len= 32) :: clname615 CHARACTER (len=72) :: clname 616 616 CHARACTER (len=40) :: clop 617 617 INTEGER :: & -
branches/CMIP5_IPSL/NEMO/OPA_SRC/IOM/iom.F90
r1830 r1846 989 989 CHARACTER(len=6),DIMENSION( 9) :: clsuff ! suffix name 990 990 CHARACTER(len=1),DIMENSION( 3) :: clgrd ! suffix name 991 CHARACTER(len= 50) :: clname ! file name991 CHARACTER(len=72) :: clname ! file name 992 992 CHARACTER(len=1) :: cl1 ! 1 character 993 993 CHARACTER(len=2) :: cl2 ! 1 character … … 1082 1082 !!$ CHARACTER(len=1),DIMENSION(4) :: clgrd = (/ 'T', 'U', 'V', 'W' /) ! suffix name 1083 1083 CHARACTER(len=1),DIMENSION(1) :: clgrd = (/ 'T' /) ! suffix name 1084 CHARACTER(len= 50) :: clname ! file name1084 CHARACTER(len=72) :: clname ! file name 1085 1085 CHARACTER(len=1) :: cl1 ! 1 character 1086 1086 CHARACTER(len=6) :: clon,clat ! name of longitude, latitude -
branches/CMIP5_IPSL/NEMO/OPA_SRC/TRD/trdmld.F90
r1715 r1846 45 45 PUBLIC trd_mld_zint ! routine called by tracers routines 46 46 47 CHARACTER ( LEN=40) :: clhstnam ! name of the trends NetCDF file47 CHARACTER (len=72) :: clhstnam ! name of the trends NetCDF file 48 48 INTEGER :: nh_t, nmoymltrd 49 49 INTEGER :: nidtrd, ndextrd1(jpi*jpj) -
branches/CMIP5_IPSL/NEMO/OPA_SRC/TRD/trdvor.F90
r1715 r1846 497 497 !!---------------------------------------------------------------------- 498 498 REAL(wp) :: zjulian, zsto, zout 499 CHARACTER (len= 40) :: clhstnam499 CHARACTER (len=72) :: clhstnam 500 500 CHARACTER (len=40) :: clop 501 501 !!---------------------------------------------------------------------- -
branches/CMIP5_IPSL/NEMO/TOP_SRC/SED/sedwri.F90
r1334 r1846 34 34 INTEGER, INTENT(in) :: kt 35 35 36 CHARACTER(len = 60) :: clhstnam, clop36 CHARACTER(len = 72) :: clhstnam, clop 37 37 INTEGER , SAVE :: nised, nhorised, ndimt52, ndimt51, ndepsed 38 38 REAL(wp), SAVE :: zjulian -
branches/CMIP5_IPSL/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r1685 r1846 43 43 PUBLIC trd_mld_trc_init 44 44 45 CHARACTER ( LEN=40) :: clhstnam ! name of the trends NetCDF file45 CHARACTER (len=72) :: clhstnam ! name of the trends NetCDF file 46 46 INTEGER :: nmoymltrd 47 47 INTEGER :: ndextrd1(jpi*jpj) -
branches/CMIP5_IPSL/NEMO/TOP_SRC/trcdia.F90
r1830 r1846 112 112 INTEGER :: jn 113 113 LOGICAL :: ll_print = .FALSE. 114 CHARACTER (len= 40) :: clhstnam, clop114 CHARACTER (len=72) :: clhstnam, clop 115 115 CHARACTER (len=20) :: cltra, cltrau 116 116 CHARACTER (len=80) :: cltral … … 246 246 !! 247 247 LOGICAL :: ll_print = .FALSE. 248 CHARACTER (len= 40) :: clhstnam, clop248 CHARACTER (len=72) :: clhstnam, clop 249 249 CHARACTER (len=20) :: cltra, cltrau 250 250 CHARACTER (len=80) :: cltral … … 479 479 !! 480 480 LOGICAL :: ll_print = .FALSE. 481 CHARACTER (len= 40) :: clhstnam, clop481 CHARACTER (len=72) :: clhstnam, clop 482 482 CHARACTER (len=20) :: cltra, cltrau 483 483 CHARACTER (len=80) :: cltral … … 629 629 !! 630 630 LOGICAL :: ll_print = .FALSE. 631 CHARACTER (len= 40) :: clhstnam, clop631 CHARACTER (len=72) :: clhstnam, clop 632 632 CHARACTER (len=20) :: cltra, cltrau 633 633 CHARACTER (len=80) :: cltral -
branches/CMIP5_IPSL/NEMO/TOP_SRC/trcwri.F90
r1830 r1846 67 67 CHARACTER (len=20) :: cltra, cltras 68 68 #if defined key_off_tra 69 CHARACTER (len= 40) :: clhstnam69 CHARACTER (len=72) :: clhstnam 70 70 INTEGER :: inum = 11 ! temporary logical unit 71 71 #endif
Note: See TracChangeset
for help on using the changeset viewer.