pkg/fizhi/fizhi_write_state.F

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

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R FIZHI_WRITE_STATE
C     | o Writes current state of fizhi package to an output file
C     | o     Called from do_the_model_io
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     !INPUT/OUTPUT PARAMETERS:
C     == Routine Arguments ==
C     suff    :: suffix for pickup file
C     myTime  :: current time
C     myIter  :: time-step number
C     myThid  :: Number of this instance
      _RL myTime
      INTEGER myIter
      INTEGER myThid

C     !LOCAL VARIABLES:
C     fn      :: character buffer for creating filename
      CHARACTER*(MAX_LEN_FNAM) pref
      CHARACTER*(MAX_LEN_MBUF) suff
      CHARACTER*(80) fn
      logical glf

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

C--   Write fields as consecutive records
      glf = .FALSE.
      WRITE(suff,'(I10.10)') myIter
      pref = 'fizhi_U.'
      WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
      call mdswritefield(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid)
      pref = 'fizhi_V.'
      WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
      call mdswritefield(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid)
      pref = 'fizhi_T.'
      WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
      call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)

      RETURN
      END
1	molod	1.1	CBOP
2			C !ROUTINE: FIZHI_WRITE_STATE
3			C !INTERFACE:
4			SUBROUTINE FIZHI_WRITE_STATE( myTime, myIter, myThid )
5
6			C !DESCRIPTION: \bv
7			C ==========================================================
8			C \| S/R FIZHI_WRITE_STATE
9			C \| o Writes current state of fizhi package to an output file
10			C \| o Called from do_the_model_io
11			C ==========================================================
12			C \ev
13
14			C !USES:
15			CEOP
16			IMPLICIT NONE
17
18			C == Global variables ===
19			#include "CPP_OPTIONS.h"
20			#include "SIZE.h"
21			#include "fizhi_SIZE.h"
22			#include "land_SIZE.h"
23			#include "fizhi_coms.h"
24			#include "land_coms.h"
25			#include "EEPARAMS.h"
26			#include "PARAMS.h"
27
28			C !INPUT/OUTPUT PARAMETERS:
29			C == Routine Arguments ==
30			C suff :: suffix for pickup file
31			C myTime :: current time
32			C myIter :: time-step number
33			C myThid :: Number of this instance
34			_RL myTime
35			INTEGER myIter
36			INTEGER myThid
37
38			C !LOCAL VARIABLES:
39			C fn :: character buffer for creating filename
40			CHARACTER*(MAX_LEN_FNAM) pref
41			CHARACTER*(MAX_LEN_MBUF) suff
42			CHARACTER*(80) fn
43			logical glf
44
45			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
46
47			C-- Write fields as consecutive records
48			glf = .FALSE.
49			WRITE(suff,'(I10.10)') myIter
50			pref = 'fizhi_U.'
51			WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
52			call mdswritefield(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid)
53			pref = 'fizhi_V.'
54			WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
55			call mdswritefield(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid)
56			pref = 'fizhi_T.'
57			WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
58			call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)
59
60			RETURN
61			END