Changeset 13025
- Timestamp:
- 2020-06-03T16:27:48+02:00 (4 years ago)
- 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 41 41 !----------------------------------------------------------------------- 42 42 43 integer, parameter :: char_len = 80, &43 integer, parameter :: char_len = 200, & 44 44 int_kind = kind(1), & 45 45 log_kind = kind(.true.), & -
utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scrip.F90
r2352 r13025 90 90 91 91 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 106 99 107 100 !----------------------------------------------------------------------- -
utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripgrid.F90
r2352 r13025 7 7 CHARACTER(char_len) :: infile 8 8 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 20 12 write(6,*) 'enter name of namelist file' 21 13 read(5,*) infile 14 endif 22 15 23 16 CALL convert( infile ) 24 #endif25 17 26 18 END PROGRAM scripgrid -
utils/tools_dev_r12970_AGRIF_CMEMS/WEIGHTS/src/scripshape.F90
r2448 r13025 24 24 REAL(KIND=8), ALLOCATABLE :: src1(:,:),dst1(:,:),wgt1(:,:) 25 25 LOGICAL :: around, verbose 26 #if defined ARGC27 INTEGER(KIND=4) :: iargc28 EXTERNAL :: iargc29 #endif30 26 31 27 CHARACTER(LEN=256) :: interp_file, output_file, name_file … … 45 41 ! ew_wrap = 2 46 42 ! 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 58 51 interp_file = 'none' 59 52 output_file = 'none'
Note: See TracChangeset
for help on using the changeset viewer.