New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
scripgrid.F90 in branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/TOOLS/WEIGHTS/src – NEMO

source: branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/TOOLS/WEIGHTS/src/scripgrid.F90 @ 5967

Last change on this file since 5967 was 5967, checked in by timgraham, 8 years ago

Reset keywords before merging with head of trunk

  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 475 bytes
Line 
1! ==============================================================================
2
3PROGRAM scripgrid
4
5  USE scripgrid_mod
6
7  CHARACTER(char_len) :: infile
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
20  write(6,*) 'enter name of namelist file'
21  read(5,*) infile
22
23  CALL convert( infile )
24#endif
25
26END PROGRAM scripgrid
Note: See TracBrowser for help on using the repository browser.