MITgcm_contrib/plumes/plumes_read_pickup.F

C $Header: /u/gcmpack/MITgcm_contrib/plumes/plumes_read_pickup.F,v 1.1 2004/05/13 22:21:45 molod Exp $
C $Name:  $

CBOP
C     !ROUTINE: PLUMES_READ_PICKUP
C     !INTERFACE:
      SUBROUTINE PLUMES_READ_PICKUP( myIter, myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R PLUMES_READ_PICKUP
C     | o Reads current plumes state from a pickup file
C     *==========================================================*
C     \ev

C     !USES:
CEOP
      IMPLICIT NONE

C     == Global variables ===
#include "CPP_OPTIONS.h"
#include "SIZE.h"
#include "plumes_SIZE.h"
#include "land_SIZE.h"
#include "plumes_coms.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine Arguments ==
C     myIter  :: time-step number
C     myThid  :: Number of this instance
      INTEGER myIter
      INTEGER myThid

C     !LOCAL VARIABLES:
C     fn      :: character buffer for creating filename
C     prec    :: precision of pickup files
C     lgf     :: flag to write "global" files
C     k       :: loop index
      INTEGER prec, iChar, lChar, k
      CHARACTER*(MAX_LEN_FNAM) fn
      LOGICAL lgf

      WRITE(fn,'(A,I10.10)') 'pickup_plumes.',myIter
      prec = precFloat64

C-    Read fields as consecutive records
      CALL MDSREADFIELD(fn,prec,'RL',Nrplume,uplume,1,myThid)
      CALL MDSREADFIELD(fn,prec,'RL',Nrplume,thplume,2,myThid)

      RETURN
      END
1	molod	1.2	C $Header: /u/gcmpack/MITgcm_contrib/plumes/plumes_read_pickup.F,v 1.1 2004/05/13 22:21:45 molod Exp $
2	molod	1.1	C $Name: $
3
4			CBOP
5	molod	1.2	C !ROUTINE: PLUMES_READ_PICKUP
6	molod	1.1	C !INTERFACE:
7	molod	1.2	SUBROUTINE PLUMES_READ_PICKUP( myIter, myThid )
8	molod	1.1
9			C !DESCRIPTION: \bv
10			C ==========================================================
11	molod	1.2	C \| S/R PLUMES_READ_PICKUP
12			C \| o Reads current plumes state from a pickup file
13	molod	1.1	C ==========================================================
14			C \ev
15
16			C !USES:
17			CEOP
18			IMPLICIT NONE
19
20			C == Global variables ===
21			#include "CPP_OPTIONS.h"
22			#include "SIZE.h"
23	molod	1.2	#include "plumes_SIZE.h"
24	molod	1.1	#include "land_SIZE.h"
25	molod	1.2	#include "plumes_coms.h"
26	molod	1.1	#include "EEPARAMS.h"
27			#include "PARAMS.h"
28
29			C == Routine Arguments ==
30			C myIter :: time-step number
31			C myThid :: Number of this instance
32			INTEGER myIter
33			INTEGER myThid
34
35			C !LOCAL VARIABLES:
36			C fn :: character buffer for creating filename
37			C prec :: precision of pickup files
38			C lgf :: flag to write "global" files
39			C k :: loop index
40			INTEGER prec, iChar, lChar, k
41			CHARACTER*(MAX_LEN_FNAM) fn
42			LOGICAL lgf
43
44	molod	1.2	WRITE(fn,'(A,I10.10)') 'pickup_plumes.',myIter
45	molod	1.1	prec = precFloat64
46
47			C- Read fields as consecutive records
48	molod	1.2	CALL MDSREADFIELD(fn,prec,'RL',Nrplume,uplume,1,myThid)
49			CALL MDSREADFIELD(fn,prec,'RL',Nrplume,thplume,2,myThid)
50	molod	1.1
51			RETURN
52			END