/[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.3 by dgoldberg, Thu Sep 27 20:29:00 2012 UTC revision 1.5 by dgoldberg, Wed Aug 27 19:29:13 2014 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 :: area_shelf_streamice_ad(1-olx:snx+olx,1-oly:
66        double precision adarea_shelf_streamice(1-olx:snx+olx,1-oly:sny+       $sny+oly,nsx,nsy)
67       $oly,nsx,nsy)        double precision :: b_glen_ad(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
68        double precision adbdot_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision :: bdot_streamice_ad(1-olx:snx+olx,1-oly:sny+oly,
      $nsy)  
       double precision adc_basal_friction(1-olx:snx+olx,1-oly:sny+oly,  
69       $nsx,nsy)       $nsx,nsy)
70        double precision adh_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision :: c_basal_friction_ad(1-olx:snx+olx,1-oly:sny+
71       $nsy)       $oly,nsx,nsy)
72        double precision adsurf_el_streamice(1-olx:snx+olx,1-oly:sny+oly,        double precision :: float_frac_streamice_ad(1-olx:snx+olx,1-oly:
73         $sny+oly,nsx,nsy)
74          double precision :: h_streamice_ad(1-olx:snx+olx,1-oly:sny+oly,
75       $nsx,nsy)       $nsx,nsy)
76        double precision adtau_beta_eff_streamice(1-olx:snx+olx,1-oly:sny+        double precision :: surf_el_streamice_ad(1-olx:snx+olx,1-oly:sny+
77       $oly,nsx,nsy)       $oly,nsx,nsy)
78        double precision adu_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision :: tau_beta_eff_streamice_ad(1-olx:snx+olx,1-oly:
79       $nsy)       $sny+oly,nsx,nsy)
80        double precision adv_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision :: u_streamice_ad(1-olx:snx+olx,1-oly:sny+oly,
81       $nsy)       $nsx,nsy)
82        double precision advisc_streamice(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision :: v_streamice_ad(1-olx:snx+olx,1-oly:sny+oly,
83       $nsy)       $nsx,nsy)
84          double precision :: visc_streamice_ad(1-olx:snx+olx,1-oly:sny+oly,
85         $nsx,nsy)
86          common /streamice_fields_rl_ad/ h_streamice_ad, u_streamice_ad,
87         $v_streamice_ad, visc_streamice_ad, tau_beta_eff_streamice_ad,
88         $float_frac_streamice_ad, surf_el_streamice_ad,
89         $area_shelf_streamice_ad, c_basal_friction_ad, b_glen_ad,
90         $bdot_streamice_ad
91    
92  #ifdef USE_ALT_RLOW  #ifdef USE_ALT_RLOW
93        double precision adr_low_si(1-olx:snx+olx,1-oly:sny+oly,nsx,        double precision :: r_low_si_ad(1-olx:snx+olx,1-oly:sny+oly,nsx,
94       $nsy)       $nsy)
95        common /adstreamice_fields_rl/ adh_streamice, adu_streamice,        common /streamice_rlow_ad/ r_low_si_ad
      $adv_streamice, advisc_streamice, adtau_beta_eff_streamice,  
      $adsurf_el_streamice, adarea_shelf_streamice, adc_basal_friction,  
      $ada_glen, adbdot_streamice, adr_low_si  
 #else  
       common /adstreamice_fields_rl/ adh_streamice, adu_streamice,  
      $adv_streamice, advisc_streamice, adtau_beta_eff_streamice,  
      $adsurf_el_streamice, adarea_shelf_streamice, adc_basal_friction,  
      $ada_glen, adbdot_streamice  
 c  
       double precision adr_low(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
       common /adgrid_rs/ adr_low  
96  #endif  #endif
97    
98  c     == end of interface ==  c     == end of interface ==
# Line 114  C--     Read IO error counter Line 111  C--     Read IO error counter
111    
112          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
113       &       'ADJc_basal_friction.'//suff, writeBinaryPrec,       &       'ADJc_basal_friction.'//suff, writeBinaryPrec,
114       &       1,  adc_basal_friction, 1, myIter, myThid )       &       1,  c_basal_friction_ad, 1, myIter, myThid )
115          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
116       &       'ADJh_streamice.'//suff, writeBinaryPrec,       &       'ADJh_streamice.'//suff, writeBinaryPrec,
117       &       1,  adh_streamice, 1, myIter, myThid )       &       1,  h_streamice_ad, 1, myIter, myThid )
118  #ifdef USE_ALT_RLOW  #ifdef USE_ALT_RLOW
119          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
120       &       'ADJr_low.'//suff, writeBinaryPrec,       &       'ADJr_low.'//suff, writeBinaryPrec,
121       &       1,  adr_low_si, 1, myIter, myThid )       &       1,  r_low_si_ad, 1, myIter, myThid )
 #else  
         CALL WRITE_REC_3D_RL(  
      &       'ADJr_low.'//suff, writeBinaryPrec,  
      &       1,  adr_low, 1, myIter, myThid )  
122  #endif  #endif
123          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
124       &       'ADJa_glen.'//suff, writeBinaryPrec,       &       'ADJb_glen.'//suff, writeBinaryPrec,
125       &       1,  ada_glen, 1, myIter, myThid )       &       1,  b_glen_ad, 1, myIter, myThid )
126          CALL WRITE_REC_3D_RL(          CALL WRITE_REC_3D_RL(
127       &       'ADJbdot.'//suff, writeBinaryPrec,       &       'ADJbdot.'//suff, writeBinaryPrec,
128       &       1,  adbdot_streamice, 1, myIter, myThid )       &       1,  bdot_streamice_ad, 1, myIter, myThid )
129    
130        ENDIF        ENDIF
131    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22