- Timestamp:
- 2019-12-11T10:18:26+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ISF/isfutils.F90
r12062 r12169 40 40 REAL(wp), DIMENSION(jpi,jpj), INTENT( out) :: pvar ! output variable 41 41 !!-------------------------- IN ------------------------------------- 42 CHARACTER(len= 256) , INTENT(in ) :: cdfile ! input file name43 CHARACTER(len= 34) , INTENT(in ) :: cdvar ! variable name42 CHARACTER(len=*) , INTENT(in ) :: cdfile ! input file name 43 CHARACTER(len=*) , INTENT(in ) :: cdvar ! variable name 44 44 !!-------------------------------------------------------------------- 45 45 INTEGER :: inum … … 59 59 !! 60 60 !!-------------------------- IN ------------------------------------- 61 CHARACTER(LEN= 256) , INTENT(in ) :: cdtxt61 CHARACTER(LEN=*) , INTENT(in ) :: cdtxt 62 62 REAL(wp), DIMENSION(jpi,jpj), INTENT(in ) :: pvar 63 63 !!-------------------------------------------------------------------- … … 101 101 !! 102 102 !!-------------------------- IN ------------------------------------- 103 CHARACTER(LEN= 256) , INTENT(in ) :: cdtxt103 CHARACTER(LEN=*) , INTENT(in ) :: cdtxt 104 104 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in ) :: pvar 105 105 !!--------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.