Changeset 13025 for utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripgrid.F90

Timestamp:

2020-06-03T16:27:48+02:00 (4 years ago)

Author:

rblod

Message:

First version of new nesting tools merged with domaincfg, see ticket #2129

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripgrid.F90 (modified) (1 diff)

utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripgrid.F90

@@ -7 +7 @@
   CHARACTER(char_len) :: infile
 
-#if defined ARGC
-  INTEGER :: IARGC
-  EXTERNAL IARGC
-
-  if (IARGC() == 1) then
-    CALL GETARG(1, infile)
-    CALL convert( infile )
-  ELSE
-    write(6,*) 'need to supply a namelist file'
-  ENDIF
-#else
+  if (COMMAND_ARGUMENT_COUNT() == 1) then
+    CALL GET_COMMAND_ARGUMENT(1, infile)
+  else
   write(6,*) 'enter name of namelist file'
   read(5,*) infile
+  endif
 
   CALL convert( infile )
-#endif
 
 END PROGRAM scripgrid