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	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