/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_init.F

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

revision 1.25 by heimbach, Fri Nov 10 04:57:09 2006 UTC revision 1.26 by heimbach, Thu Jun 21 04:06:21 2007 UTC
# Line 158  cph          37                 evap Line 158  cph          37                 evap
158  cph          38                 snowprecip  cph          38                 snowprecip
159  cph          39                 apressure  cph          39                 apressure
160  cph          40                 runoff  cph          40                 runoff
161    cph          41                 seaice SIAREA
162    cph          42                 seaice SIHEFF
163    cph          43                 seaice SIHSNOW
164  cph)  cph)
165    
166  c----------------------------------------------------------------------  c----------------------------------------------------------------------
# Line 992  c--   Atmos. runoff Line 995  c--   Atmos. runoff
995  #endif /* ALLOW_RUNOFF_CONTROL */  #endif /* ALLOW_RUNOFF_CONTROL */
996    
997  c----------------------------------------------------------------------  c----------------------------------------------------------------------
998    c--
999    #ifdef ALLOW_SIAREA_CONTROL
1000            startrec = 1
1001            endrec   = 1
1002            diffrec  = endrec - startrec + 1
1003            call ctrl_init_ctrlvar (
1004         &       xx_siarea_file, 41, 141, diffrec, startrec, endrec,
1005         &       snx, sny, 1, 'c', 'xy', mythid )
1006    #endif /* ALLOW_siarea_CONTROL */
1007    
1008    c----------------------------------------------------------------------
1009    c--
1010    #ifdef ALLOW_SIHEFF_CONTROL
1011            startrec = 1
1012            endrec   = 1
1013            diffrec  = endrec - startrec + 1
1014            call ctrl_init_ctrlvar (
1015         &       xx_siheff_file, 42, 142, diffrec, startrec, endrec,
1016         &       snx, sny, 1, 'c', 'xy', mythid )
1017    #endif /* ALLOW_siheff_CONTROL */
1018    
1019    c----------------------------------------------------------------------
1020    c--
1021    #ifdef ALLOW_SIHSNOW_CONTROL
1022            startrec = 1
1023            endrec   = 1
1024            diffrec  = endrec - startrec + 1
1025            call ctrl_init_ctrlvar (
1026         &       xx_sihsnow_file, 42, 142, diffrec, startrec, endrec,
1027         &       snx, sny, 1, 'c', 'xy', mythid )
1028    #endif /* ALLOW_sihsnow_CONTROL */
1029    
1030    c----------------------------------------------------------------------
1031  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1032    
1033          call ctrl_init_wet( mythid )          call ctrl_init_wet( mythid )
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22