--- MITgcm/pkg/fizhi/fizhi_write_state.F	2004/03/30 18:28:44	1.2
+++ MITgcm/pkg/fizhi/fizhi_write_state.F	2004/08/18 15:41:18	1.6
@@ -1,3 +1,7 @@
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_write_state.F,v 1.6 2004/08/18 15:41:18 molod Exp $
+C $Name:  $
+
+#include "FIZHI_OPTIONS.h"
 CBOP
 C     !ROUTINE: FIZHI_WRITE_STATE 
 C     !INTERFACE:
@@ -16,12 +20,11 @@
       IMPLICIT NONE
 
 C     == Global variables ===
-#include "CPP_OPTIONS.h"
 #include "SIZE.h"
 #include "fizhi_SIZE.h"
-#include "land_SIZE.h"
+#include "fizhi_land_SIZE.h"
 #include "fizhi_coms.h"
-#include "land_coms.h"
+#include "fizhi_land_coms.h"
 #include "EEPARAMS.h"
 #include "PARAMS.h"
 
@@ -66,6 +69,9 @@
        pref = 'fizhi_T.'
        WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
        call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)
+       pref = 'fizhi_S.'
+       WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
+       call mdswritefield(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid)
 
       ENDIF