pkg/fizhi/fizhi_read_pickup.F

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

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

C     !USES:
CEOP
      IMPLICIT NONE

C     == Global variables ===
#include "CPP_OPTIONS.h"
#include "SIZE.h"
#include "fizhi_SIZE.h"
#include "land_SIZE.h"
#include "fizhi_coms.h"
#include "land_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_fizhi.',myIter
      prec = precFloat64

C-    Read fields as consecutive records
      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid)
      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid)
      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid)
      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid)

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