/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_output.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_output.F

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

revision 1.3 by heimbach, Mon Oct 22 20:06:27 2012 UTC revision 1.5 by torge, Wed Mar 27 18:59:53 2013 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "SEAICE_OPTIONS.h"  #include "SEAICE_OPTIONS.h"
5    #ifdef ALLOW_EXF
6    # include "EXF_OPTIONS.h"
7    #endif
8    
9  CBOP 0  CBOP 0
10  C !ROUTINE: SEAICE_OUTPUT  C !ROUTINE: SEAICE_OUTPUT
# Line 29  C     === Global variables === Line 32  C     === Global variables ===
32  #include "SEAICE_TRACER.h"  #include "SEAICE_TRACER.h"
33  #include "SEAICE_TAVE.h"  #include "SEAICE_TAVE.h"
34  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
 # include "EXF_OPTIONS.h"  
35  # include "EXF_FIELDS.h"  # include "EXF_FIELDS.h"
36  #endif  #endif
37    
# Line 102  CEOP Line 104  CEOP
104              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_HEFF',hEff,myThid)              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_HEFF',hEff,myThid)
105              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREA',area,myThid)              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREA',area,myThid)
106  #ifdef SEAICE_ITD  #ifdef SEAICE_ITD
107              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_HEFFITD',HEFFITD,myThid)  c           CALL MNC_CW_RL_W(pf,'sice',0,0,'si_HEFFITD',HEFFITD,myThid)
108              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREAITD',AREAITD,myThid)  c           CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREAITD',AREAITD,myThid)
109  #endif  #endif
110              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UWIND',uwind,myThid)              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UWIND',uwind,myThid)
111              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VWIND',vwind,myThid)              CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VWIND',vwind,myThid)
# Line 131  CEOP Line 133  CEOP
133              CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid)              CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid)
134              CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid)              CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid)
135  #ifdef SEAICE_ITD  #ifdef SEAICE_ITD
136              CALL WRITE_FLD_XY_RL( 'HEFFITD.',suff,HEFFITD,myIter,myThid)              CALL WRITE_FLD_3D_RL( 'HEFFITD.', suff, nITD, HEFFITD,
137              CALL WRITE_FLD_XY_RL( 'AREAITD.',suff,AREAITD,myIter,myThid)       &                            myIter, myThid )
138             CALL WRITE_FLD_XY_RL('HSNOWITD.',suff,HSNOWITD,myIter,myThid)              CALL WRITE_FLD_3D_RL( 'AREAITD.', suff, nITD, AREAITD,
139         &                            myIter, myThid )
140                CALL WRITE_FLD_3D_RL('HSNOWITD.', suff, nITD, HSNOWITD,
141         &                            myIter, myThid )
142  #endif  #endif
143  #ifdef SEAICE_VARIABLE_SALINITY  #ifdef SEAICE_VARIABLE_SALINITY
144              CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid)              CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid)
# Line 197  C- note(jmc): surf.Fluxes have not yet b Line 202  C- note(jmc): surf.Fluxes have not yet b
202            ENDDO            ENDDO
203           ENDDO           ENDDO
204  #ifdef SEAICE_ITD  #ifdef SEAICE_ITD
205           DO k=1,nITD           DO k=1,nITD
206            DO j=1,sNy            DO j=1,sNy
207             DO i=1,sNx             DO i=1,sNx
208              HEFFITDtave(i,j,k,bi,bj) =              HEFFITDtave(i,j,k,bi,bj) =
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22