/[MITgcm]/MITgcm/pkg/seaice/seaice_ad_dump.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_ad_dump.F

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

revision 1.7 by jmc, Fri Jul 6 23:03:40 2012 UTC revision 1.8 by gforget, Tue Aug 7 21:19:18 2012 UTC
# Line 36  C     == Global variables === Line 36  C     == Global variables ===
36  #endif  #endif
37  #include "GRID.h"  #include "GRID.h"
38  #ifdef ALLOW_AUTODIFF_MONITOR  #ifdef ALLOW_AUTODIFF_MONITOR
39    # include "AUTODIFF_PARAMS.h"
40    # include "AUTODIFF.h"
41  # include "adcommon.h"  # include "adcommon.h"
42  #endif  #endif
43    
# Line 76  CEOP Line 78  CEOP
78       &  DIFFERENT_MULTIPLE(adjDumpFreq,mytime,deltaTClock)       &  DIFFERENT_MULTIPLE(adjDumpFreq,mytime,deltaTClock)
79       & ) THEN       & ) THEN
80    
81    c increment ad dump record number (used only if dumpAdByRec is true)
82            dumpAdRecSi=dumpAdRecSi+1
83    c#ifdef ALLOW_DEBUG
84    c      IF ( debugMode ) print*,'dumpAdRecSi',dumpAdRecSi
85    c#endif
86    
87    
88  C--     Set suffix for this set of data files.  C--     Set suffix for this set of data files.
89          WRITE(suff,'(I10.10)') myIter          WRITE(suff,'(I10.10)') myIter
90          writeBinaryPrec = writeStatePrec          writeBinaryPrec = writeStatePrec
# Line 83  C--     Set suffix for this set of data Line 92  C--     Set suffix for this set of data
92  C--     Read IO error counter  C--     Read IO error counter
93          beginIOErrCount = IO_ERRCOUNT(myThid)          beginIOErrCount = IO_ERRCOUNT(myThid)
94    
95            IF (.NOT.dumpAdByRec) THEN
96    
97          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
98       &       'ADJarea.'//suff, writeBinaryPrec,       &       'ADJarea.'//suff, writeBinaryPrec,
99       &       1,  adarea, 1, myIter, myThid )       &       1,  adarea, 1, myIter, myThid )
# Line 103  cph        IF ( SEAICEuseDynamics ) THEN Line 114  cph        IF ( SEAICEuseDynamics ) THEN
114  cph        ENDIF  cph        ENDIF
115  # endif  # endif
116    
117            ELSE
118    
119            CALL WRITE_REC_3D_RL(
120         &       'ADJarea', writeBinaryPrec,
121         &       1,  adarea, dumpAdRecSi, myIter, myThid )
122            CALL WRITE_REC_3D_RL(
123         &       'ADJheff', writeBinaryPrec,
124         &       1,  adheff, dumpAdRecSi, myIter, myThid )
125            CALL WRITE_REC_3D_RL(
126         &       'ADJhsnow', writeBinaryPrec,
127         &       1,  adhsnow, dumpAdRecSi, myIter, myThid )
128    # ifdef SEAICE_ALLOW_DYNAMICS
129    cph        IF ( SEAICEuseDynamics ) THEN
130              CALL WRITE_REC_3D_RL(
131         &       'ADJuice', writeBinaryPrec,
132         &       1,  aduice, dumpAdRecSi, myIter, myThid )
133              CALL WRITE_REC_3D_RL(
134         &       'ADJvice', writeBinaryPrec,
135         &       1,  advice, dumpAdRecSi, myIter, myThid )
136    cph        ENDIF
137    # endif
138            ENDIF
139    
140  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
141          IF (useMNC .AND. autodiff_mnc) THEN          IF (useMNC .AND. autodiff_mnc) THEN
142    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22