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/UKMO/r6232_tracer_advection/NEMOGCM/TOOLS/WEIGHTS/nocsutil – NEMO

source: branches/UKMO/r6232_tracer_advection/NEMOGCM/TOOLS/WEIGHTS/nocsutil/scripgrid.F90 @ 9295

Last change on this file since 9295 was 2352, checked in by sga, 13 years ago

NEMO branch nemo_v3_3_beta
Add NOCS tools based on SCRIP package for creating weights for interpolation on the fly
These now should build with the maketools script in the TOOLS directory using the same
architecture configuration file as the model (hopefully)

  • Property svn:executable set to *
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.