/[MITgcm]/MITgcm/pkg/fizhi/fizhi_write_state.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_write_state.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by molod, Tue Mar 30 18:28:44 2004 UTC revision 1.6 by molod, Wed Aug 18 15:41:18 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "FIZHI_OPTIONS.h"
5  CBOP  CBOP
6  C     !ROUTINE: FIZHI_WRITE_STATE  C     !ROUTINE: FIZHI_WRITE_STATE
7  C     !INTERFACE:  C     !INTERFACE:
# Line 16  CEOP Line 20  CEOP
20        IMPLICIT NONE        IMPLICIT NONE
21    
22  C     == Global variables ===  C     == Global variables ===
 #include "CPP_OPTIONS.h"  
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
25  #include "land_SIZE.h"  #include "fizhi_land_SIZE.h"
26  #include "fizhi_coms.h"  #include "fizhi_coms.h"
27  #include "land_coms.h"  #include "fizhi_land_coms.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "PARAMS.h"  #include "PARAMS.h"
30    
# Line 66  C--   Write fields as consecutive record Line 69  C--   Write fields as consecutive record
69         pref = 'fizhi_T.'         pref = 'fizhi_T.'
70         WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)         WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
71         call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)         call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)
72           pref = 'fizhi_S.'
73           WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
74           call mdswritefield(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid)
75    
76        ENDIF        ENDIF
77    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22