/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_dump_ad.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_dump_ad.F

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

revision 1.2 by dgoldberg, Tue Sep 4 21:11:44 2012 UTC revision 1.4 by dgoldberg, Thu Mar 7 15:23:19 2013 UTC
# Line 62  C     msgBuf - Error message buffer Line 62  C     msgBuf - Error message buffer
62        INTEGER endIOErrCount        INTEGER endIOErrCount
63        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
64    
65        double precision ada_glen(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        double precision adb_glen(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
66        double precision adarea_shelf_streamice(1-olx:snx+olx,1-oly:sny+        double precision adarea_shelf_streamice(1-olx:snx+olx,1-oly:sny+
67       $oly,nsx,nsy)       $oly,nsx,nsy)
68        double precision adbdot_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision adbdot_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,
# Line 81  C     msgBuf - Error message buffer Line 81  C     msgBuf - Error message buffer
81       $nsy)       $nsy)
82        double precision advisc_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision advisc_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,
83       $nsy)       $nsy)
84    #ifdef USE_ALT_RLOW
85          double precision adr_low_si(1-olx:snx+olx,1-oly:sny+oly,nsx,
86         $nsy)
87          common /adstreamice_fields_rl/ adh_streamice, adu_streamice,
88         $adv_streamice, advisc_streamice, adtau_beta_eff_streamice,
89         $adsurf_el_streamice, adarea_shelf_streamice, adc_basal_friction,
90         $adb_glen, adbdot_streamice, adr_low_si
91    #else
92        common /adstreamice_fields_rl/ adh_streamice, adu_streamice,        common /adstreamice_fields_rl/ adh_streamice, adu_streamice,
93       $adv_streamice, advisc_streamice, adtau_beta_eff_streamice,       $adv_streamice, advisc_streamice, adtau_beta_eff_streamice,
94       $adsurf_el_streamice, adarea_shelf_streamice, adc_basal_friction,       $adsurf_el_streamice, adarea_shelf_streamice, adc_basal_friction,
95       $ada_glen, adbdot_streamice       $adb_glen, adbdot_streamice
96  c  c
97        double precision adr_low(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        double precision adr_low(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
98        common /adgrid_rs/ adr_low        common /adgrid_rs/ adr_low
99    #endif
100    
101  c     == end of interface ==  c     == end of interface ==
102  CEOP  CEOP
# Line 109  C--     Read IO error counter Line 118  C--     Read IO error counter
118          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
119       &       'ADJh_streamice.'//suff, writeBinaryPrec,       &       'ADJh_streamice.'//suff, writeBinaryPrec,
120       &       1,  adh_streamice, 1, myIter, myThid )       &       1,  adh_streamice, 1, myIter, myThid )
121    #ifdef USE_ALT_RLOW
122            CALL WRITE_REC_3D_RL(
123         &       'ADJr_low.'//suff, writeBinaryPrec,
124         &       1,  adr_low_si, 1, myIter, myThid )
125    #else
126          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
127       &       'ADJr_low.'//suff, writeBinaryPrec,       &       'ADJr_low.'//suff, writeBinaryPrec,
128       &       1,  adr_low, 1, myIter, myThid )       &       1,  adr_low, 1, myIter, myThid )
129    #endif
130          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
131       &       'ADJa_glen.'//suff, writeBinaryPrec,       &       'ADJb_glen.'//suff, writeBinaryPrec,
132       &       1,  ada_glen, 1, myIter, myThid )       &       1,  adb_glen, 1, myIter, myThid )
133          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
134       &       'ADJbdot.'//suff, writeBinaryPrec,       &       'ADJbdot.'//suff, writeBinaryPrec,
135       &       1,  adbdot_streamice, 1, myIter, myThid )       &       1,  adbdot_streamice, 1, myIter, myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22