Changeset 13025


Ignore:
Timestamp:
2020-06-03T16:27:48+02:00 (4 months ago)
Author:
rblod
Message:

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

Location:
utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/kinds_mod.f90

    r2352 r13025  
    4141!----------------------------------------------------------------------- 
    4242 
    43       integer, parameter :: char_len  = 80, & 
     43      integer, parameter :: char_len  = 200, & 
    4444                            int_kind  = kind(1), & 
    4545                            log_kind  = kind(.true.), & 
  • utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scrip.F90

    r2352 r13025  
    9090 
    9191      character (char_len) :: nm_in 
    92 #if defined ARGC 
    93       integer :: iargc 
    94       external iargc 
    95  
    96       if (iargc() == 1) then 
    97         call getarg(1, nm_in) 
    98       else 
    99         write(6,*) 'need name of namelist file' 
    100         stop 
    101       endif 
    102 #else 
    103       write(6,*) 'enter name for namelist file' 
    104       read(5,*) nm_in 
    105 #endif 
     92 
     93  if (COMMAND_ARGUMENT_COUNT() == 1) then 
     94    CALL GET_COMMAND_ARGUMENT(1, nm_in) 
     95  else 
     96  write(6,*) 'enter name of namelist file' 
     97  read(5,*) nm_in 
     98  endif 
    10699 
    107100!----------------------------------------------------------------------- 
  • utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripgrid.F90

    r2352 r13025  
    77  CHARACTER(char_len) :: infile 
    88 
    9 #if defined ARGC 
    10   INTEGER :: IARGC 
    11   EXTERNAL IARGC 
    12  
    13   if (IARGC() == 1) then 
    14     CALL GETARG(1, infile) 
    15     CALL convert( infile ) 
    16   ELSE 
    17     write(6,*) 'need to supply a namelist file' 
    18   ENDIF 
    19 #else 
     9  if (COMMAND_ARGUMENT_COUNT() == 1) then 
     10    CALL GET_COMMAND_ARGUMENT(1, infile) 
     11  else 
    2012  write(6,*) 'enter name of namelist file' 
    2113  read(5,*) infile 
     14  endif 
    2215 
    2316  CALL convert( infile ) 
    24 #endif 
    2517 
    2618END PROGRAM scripgrid 
  • utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripshape.F90

    r2448 r13025  
    2424      REAL(KIND=8), ALLOCATABLE :: src1(:,:),dst1(:,:),wgt1(:,:) 
    2525      LOGICAL  :: around, verbose 
    26 #if defined ARGC 
    27       INTEGER(KIND=4) :: iargc 
    28       EXTERNAL :: iargc 
    29 #endif 
    3026 
    3127      CHARACTER(LEN=256) :: interp_file, output_file, name_file 
     
    4541!     ew_wrap     = 2 
    4642! 
    47 #if defined ARGC 
    48       IF (iargc() == 1) THEN 
    49         CALL getarg(1, name_file) 
    50       ELSE 
    51         WRITE(*,*) 'Usage: scripshape namelist_file' 
    52         STOP 
    53       ENDIF 
    54 #else 
    55       WRITE(6,*) 'enter name of namelist file' 
    56       READ(5,*) name_file 
    57 #endif 
     43 
     44  if (COMMAND_ARGUMENT_COUNT() == 1) then 
     45    CALL GET_COMMAND_ARGUMENT(1, name_file) 
     46  else 
     47  write(6,*) 'enter name of namelist file' 
     48  read(5,*) name_file 
     49  endif 
     50 
    5851      interp_file = 'none' 
    5952      output_file = 'none' 
Note: See TracChangeset for help on using the changeset viewer.