Changeset 940 for IOIPSL/trunk
- Timestamp:
- 03/08/10 14:14:01 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/fliocom.f90
r936 r940 62 62 !! which contains the dimensions needed. 63 63 !! 64 !! SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom, mode,c_f_n)64 !! SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom,cmode,c_f_n) 65 65 !! 66 66 !! INPUT … … 86 86 !! This argument can be equal to FLIO_DOM_DEFAULT 87 87 !! (see "flio_dom_defset"). 88 !! (C) mode: String of (case insensitive) blank-separated words88 !! (C) cmode : String of (case insensitive) blank-separated words 89 89 !! defining the mode used to create the file. 90 90 !! Supported keywords : REPLACE, 32, 64 … … 837 837 !- 838 838 !=== 839 SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom, mode,c_f_n)839 SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom,cmode,c_f_n) 840 840 !--------------------------------------------------------------------- 841 841 IMPLICIT NONE … … 846 846 INTEGER,INTENT(OUT) :: f_i 847 847 INTEGER,OPTIONAL,INTENT(IN) :: id_dom 848 CHARACTER(LEN=*),OPTIONAL,INTENT(IN) :: mode848 CHARACTER(LEN=*),OPTIONAL,INTENT(IN) :: cmode 849 849 CHARACTER(LEN=*),OPTIONAL,INTENT(OUT) :: c_f_n 850 850 !- … … 897 897 i_opt(:)=-1 898 898 !- 899 IF (PRESENT( mode)) THEN899 IF (PRESENT(cmode)) THEN 900 900 !--- 901 IF (LEN_TRIM( mode) > l_string) THEN901 IF (LEN_TRIM(cmode) > l_string) THEN 902 902 CALL ipslerr (3,'fliocrfd', & 903 & '" mode" argument','too long','to be treated')904 ENDIF 905 c_string = mode(:)903 & '"cmode" argument','too long','to be treated') 904 ENDIF 905 c_string = cmode(:) 906 906 CALL strlowercase (c_string) 907 907 !--- … … 963 963 !- 964 964 !- Code to be replaced by the following for NETCDF4 965 IF (i_opt(3) /= k_32) THEN966 m_c = IOR(m_c,NF90_64BIT_OFFSET)967 ENDIF968 965 !? IF (i_opt(2) == k_netcdf4) THEN 969 966 !? m_c = IOR(m_c,NF90_NETCDF4) … … 976 973 !? LSE IF (i_opt(4) > 0) THEN 977 974 !? CALL ipslerr (3,'fliocrfd', & 978 !? & 'Netcdf default format','and classic option','are not compatible') 979 !? ELSE IF (i_opt(3) /= k_32) THEN 980 !? m_c = IOR(m_c,NF90_64BIT_OFFSET) 975 !? & 'Classic option','is reserved','for the Netcdf4 format') 976 !? ELSE 977 IF (i_opt(3) /= k_32) THEN 978 m_c = IOR(m_c,NF90_64BIT_OFFSET) 979 ENDIF 981 980 !? ENDIF 982 981 !-
Note: See TracChangeset
for help on using the changeset viewer.