Changeset 957 for IOIPSL/trunk/src/fliocom.f90

Timestamp:

03/24/10 16:34:25 (14 years ago)

Author:

bellier

Message:

histcom : securize histsync and histclo
fliocom : change argument name of fliocrfd for back compatibility

File:

• IOIPSL/trunk/src/fliocom.f90 (modified) (5 diffs)

IOIPSL/trunk/src/fliocom.f90

@@ -62 +62 @@
 !! which contains the dimensions needed.
 !!
-!! SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom,cmode,c_f_n)
+!! SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom,mode,c_f_n)
 !!
 !! INPUT
@@ -86 +86 @@
 !!              This argument can be equal to FLIO_DOM_DEFAULT
 !!              (see "flio_dom_defset").
-!! (C) cmode  : String of (case insensitive) blank-separated words
+!! (C) mode   : String of (case insensitive) blank-separated words
 !!              defining the mode used to create the file.
 !!              Supported keywords : REPLACE, 32, 64
@@ -837 +837 @@
 !-
 !===
-SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom,cmode,c_f_n)
+SUBROUTINE fliocrfd (f_n,f_d_n,f_d_l,f_i,id_dom,mode,c_f_n)
 !---------------------------------------------------------------------
   IMPLICIT NONE
@@ -846 +846 @@
   INTEGER,INTENT(OUT) :: f_i
   INTEGER,OPTIONAL,INTENT(IN) :: id_dom
-  CHARACTER(LEN=*),OPTIONAL,INTENT(IN) :: cmode
+  CHARACTER(LEN=*),OPTIONAL,INTENT(IN) :: mode
   CHARACTER(LEN=*),OPTIONAL,INTENT(OUT) :: c_f_n
 !-
@@ -897 +897 @@
   i_opt(:)=-1
 !-
-  IF (PRESENT(cmode)) THEN
+  IF (PRESENT(mode)) THEN
 !---
-    IF (LEN_TRIM(cmode) > l_string) THEN
+    IF (LEN_TRIM(mode) > l_string) THEN
       CALL ipslerr (3,'fliocrfd', &
- &     '"cmode" argument','too long','to be treated')
-    ENDIF
-    c_string = cmode(:)
+ &     '"mode" argument','too long','to be treated')
+    ENDIF
+    c_string = mode(:)
     CALL strlowercase (c_string)
 !---