pkg/mdsio/mdsio_writefield.F

C $Header: /u/gcmpack/MITgcm/pkg/mdsio/mdsio_writefield.F,v 1.8 2004/03/01 20:47:38 molod Exp $
C $Name:  $

#include "MDSIO_OPTIONS.h"

      SUBROUTINE MDSWRITEFIELD(
     I   fName,
     I   filePrec,
     I   globalFile,
     I   arrType,
     I   nNz,
     I   arr,
     I   irecord,
     I   myIter,
     I   myThid )
C
C Arguments:
C
C fName         string  base name for file to written
C filePrec      integer number of bits per word in file (32 or 64)
C globalFile    logical selects between writing a global or tiled file
C arrType       char(2) declaration of "arr": either "RS" or "RL"
C nNz           integer size of third dimension: normally either 1 or Nr
C arr           RS/RL   array to write, arr(:,:,nNz,:,:)
C irecord       integer record number to read
C myIter        integer time step number
C myThid        integer thread identifier
C
C Routine now calls mdswritefield_new, just a way to add 2 extra arguments
C to the argument list. The 1rst new argument is to make the difference between
C the vertical dimension (3rd dimension) of an array and the number of levels
C the output routine should process. This routine assumes they are the same.
C The 2nd new argument (useCurrentDir=.FALSE.) allows to write files to
C the "mdsioLocalDir" (if it is set) directory.

      implicit none
C Global variables / common blocks
#include "SIZE.h"
c #include "EEPARAMS.h"

C Routine arguments
      character*(*) fName
      integer filePrec
      logical globalFile
      character*(2) arrType
      integer nNz
      _RL     arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy)
      integer irecord
      integer myIter
      integer myThid
C     ------------------------------------------------------------------
      CALL MDSWRITEFIELD_NEW(
     I                        fName,filePrec,globalFile,.FALSE.,
     I                        arrType,nNz,nNz,arr,irecord,
     I                        myIter,myThid )
C     ------------------------------------------------------------------
      return
      end
1	C $Header: /u/gcmpack/MITgcm/pkg/mdsio/mdsio_writefield.F,v 1.8 2004/03/01 20:47:38 molod Exp $
2	C $Name: $
3
4	#include "MDSIO_OPTIONS.h"
5
6	SUBROUTINE MDSWRITEFIELD(
7	I fName,
8	I filePrec,
9	I globalFile,
10	I arrType,
11	I nNz,
12	I arr,
13	I irecord,
14	I myIter,
15	I myThid )
16	C
17	C Arguments:
18	C
19	C fName string base name for file to written
20	C filePrec integer number of bits per word in file (32 or 64)
21	C globalFile logical selects between writing a global or tiled file
22	C arrType char(2) declaration of "arr": either "RS" or "RL"
23	C nNz integer size of third dimension: normally either 1 or Nr
24	C arr RS/RL array to write, arr(:,:,nNz,:,:)
25	C irecord integer record number to read
26	C myIter integer time step number
27	C myThid integer thread identifier
28	C
29	C Routine now calls mdswritefield_new, just a way to add 2 extra arguments
30	C to the argument list. The 1rst new argument is to make the difference between
31	C the vertical dimension (3rd dimension) of an array and the number of levels
32	C the output routine should process. This routine assumes they are the same.
33	C The 2nd new argument (useCurrentDir=.FALSE.) allows to write files to
34	C the "mdsioLocalDir" (if it is set) directory.
35
36	implicit none
37	C Global variables / common blocks
38	#include "SIZE.h"
39	c #include "EEPARAMS.h"
40
41	C Routine arguments
42	character() fName
43	integer filePrec
44	logical globalFile
45	character*(2) arrType
46	integer nNz
47	_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy)
48	integer irecord
49	integer myIter
50	integer myThid
51	C ------------------------------------------------------------------
52	CALL MDSWRITEFIELD_NEW(
53	I fName,filePrec,globalFile,.FALSE.,
54	I arrType,nNz,nNz,arr,irecord,
55	I myIter,myThid )
56	C ------------------------------------------------------------------
57	return
58	end