Changeset 13025 for utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripshape.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/scripshape.F90 (modified) (2 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripshape.F90

@@ -24 +24 @@
       REAL(KIND=8), ALLOCATABLE :: src1(:,:),dst1(:,:),wgt1(:,:)
       LOGICAL  :: around, verbose
-#if defined ARGC
-      INTEGER(KIND=4) :: iargc
-      EXTERNAL :: iargc
-#endif
 
       CHARACTER(LEN=256) :: interp_file, output_file, name_file
@@ -45 +41 @@
 !     ew_wrap     = 2
 !
-#if defined ARGC
-      IF (iargc() == 1) THEN
-        CALL getarg(1, name_file)
-      ELSE
-        WRITE(*,*) 'Usage: scripshape namelist_file'
-        STOP
-      ENDIF
-#else
-      WRITE(6,*) 'enter name of namelist file'
-      READ(5,*) name_file
-#endif
+
+  if (COMMAND_ARGUMENT_COUNT() == 1) then
+    CALL GET_COMMAND_ARGUMENT(1, name_file)
+  else
+  write(6,*) 'enter name of namelist file'
+  read(5,*) name_file
+  endif
+
       interp_file = 'none'
       output_file = 'none'