/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/ATM2D_VARS.h
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/ATM2D_VARS.h

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

revision 1.1 by jscott, Fri Aug 11 18:55:50 2006 UTC revision 1.2 by jscott, Tue Aug 22 20:21:38 2006 UTC
# Line 53  Line 53 
53         CHARACTER*(MAX_LEN_FNAM) runoffFile         CHARACTER*(MAX_LEN_FNAM) runoffFile
54         CHARACTER*(MAX_LEN_FNAM) runoffMapFile         CHARACTER*(MAX_LEN_FNAM) runoffMapFile
55         _RL          runoffVal (1-OLx:sNx+OLx,1-OLy:sNy+OLy)         _RL          runoffVal (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
56         INTEGER      numBands        ! number of runoff bands         INTEGER      numBands      ! number of runoff bands
57         INTEGER      rband(1:sNy)    ! first band j=1,rband(1); next j=rband(1)+1,rband(2) etc.         INTEGER      rband(sNy)    ! first band j=1,rband(1); next j=rband(1)+1,rband(2) etc.
58         INTEGER      runIndex(1:sNy) ! for specific latitude, corresponding runoff band         INTEGER      runIndex(sNy) ! for specific latitude, corresponding runoff band
59    
60        COMMON /OPTIONS_1DTO2D/        COMMON /OPTIONS_1DTO2D/
61       &        useObsEmP, useObsRunoff, useAltDeriv       &        useObsEmP, useObsRunoff, useAltDeriv
# Line 188  c Line 188  c
188         _RL sFluxFromIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! salt flux to ocean, ""         _RL sFluxFromIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! salt flux to ocean, ""
189    
190        COMMON/DIAGS_1DTO2D/ qnet_atm, evap_atm, precip_atm, runoff_atm,        COMMON/DIAGS_1DTO2D/ qnet_atm, evap_atm, precip_atm, runoff_atm,
191       &                     sum_qrel, sum_frel,       &                     sum_qrel, sum_frel,
192         &                     sum_iceMask, sum_iceHeight, sum_iceTime,
193         &                     sum_oceMxLT, sum_oceMxLS,
194       &                     qnet_atm_ta, evap_atm_ta,       &                     qnet_atm_ta, evap_atm_ta,
195       &                     precip_atm_ta, runoff_atm_ta,       &                     precip_atm_ta, runoff_atm_ta,
196       &                     sum_qrel_ta, sum_frel_ta,       &                     sum_qrel_ta, sum_frel_ta,
197         &                     sum_iceMask_ta, sum_iceHeight_ta,
198         &                     sum_iceTime_ta,
199         &                     sum_oceMxLT_ta, sum_oceMxLS_ta,
200       &                     sum_tauu_ta, sum_tauv_ta, sum_wsocean_ta,       &                     sum_tauu_ta, sum_tauv_ta, sum_wsocean_ta,
201       &                     sum_ps4ocean_ta       &                     sum_ps4ocean_ta
202         _RL qnet_atm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !         _RL qnet_atm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
# Line 200  c Line 205  c
205         _RL runoff_atm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)  !         _RL runoff_atm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)  !
206         _RL sum_qrel(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !         _RL sum_qrel(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
207         _RL sum_frel(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !         _RL sum_frel(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
208           _RL sum_iceMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
209           _RL sum_iceHeight(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
210           _RL sum_iceTime(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
211           _RL sum_oceMxLT(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
212           _RL sum_oceMxLS(1-OLx:sNx+OLx,1-OLy:sNy+OLy)    !
213         _RL qnet_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !         _RL qnet_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !
214         _RL evap_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !         _RL evap_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !
215         _RL precip_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)  !         _RL precip_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)  !
216         _RL runoff_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)  !         _RL runoff_atm_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)  !
217         _RL sum_qrel_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !         _RL sum_qrel_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !
218         _RL sum_frel_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !         _RL sum_frel_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer)    !
219           _RL sum_iceMask_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer) !
220           _RL sum_iceHeight_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer) !
221           _RL sum_iceTime_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer) !
222           _RL sum_oceMxLT_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer) !
223           _RL sum_oceMxLS_ta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nForcingPer) !
224         _RL sum_tauu_ta(jm0,nForcingPer)         _RL sum_tauu_ta(jm0,nForcingPer)
225         _RL sum_tauv_ta(jm0,nForcingPer)         _RL sum_tauv_ta(jm0,nForcingPer)
226         _RL sum_wsocean_ta(jm0,nForcingPer)         _RL sum_wsocean_ta(jm0,nForcingPer)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22