/[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.31 by heimbach, Fri May 29 06:12:05 2009 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 432  c--   Meridional wind speed. Line 435  c--   Meridional wind speed.
435    
436  #elif (defined (ALLOW_TAUV0_CONTROL))  #elif (defined (ALLOW_TAUV0_CONTROL))
437  c--   initial forcing only  c--   initial forcing only
         diffrec  = endrec - startrec + 1  
438          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
439       &       xx_tauv_file, 6, 106, 1, 1, 1,       &       xx_tauv_file, 6, 106, 1, 1, 1,
440       &       snx, sny, 1, 's', 'xy', mythid )       &       snx, sny, 1, 's', 'xy', mythid )
# Line 677  c-- Line 679  c--
679    
680  c----------------------------------------------------------------------  c----------------------------------------------------------------------
681  c--  c--
682  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_HFLUXM_CONTROL
683          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
684       &       xx_edtaux_file, 25, 125, 1, 1, 1,       &       xx_hfluxm_file, 24, 124, 1, 1, 1,
685       &       snx, sny, nr, 'w', '3d', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
686  #endif /* ALLOW_EDTAUX_CONTROL */  #endif /* ALLOW_HFLUXM_CONTROL */
687    
688  c----------------------------------------------------------------------  c----------------------------------------------------------------------
689  c--  c--
690  #ifdef ALLOW_EDTAUY_CONTROL  #ifdef ALLOW_EDDYPSI_CONTROL
691            call ctrl_init_ctrlvar (
692         &       xx_edtaux_file, 25, 125, 1, 1, 1,
693         &       snx, sny, nr, 'w', '3d', mythid )
694    
695          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
696       &       xx_edtauy_file, 26, 126, 1, 1, 1,       &       xx_edtauy_file, 26, 126, 1, 1, 1,
697       &       snx, sny, nr, 's', '3d', mythid )       &       snx, sny, nr, 's', '3d', mythid )
698  #endif /* ALLOW_EDTAUY_CONTROL */  #endif /* ALLOW_EDDYPSI_CONTROL */
699    
700  c----------------------------------------------------------------------  c----------------------------------------------------------------------
701  c--  c--
# Line 992  c--   Atmos. runoff Line 998  c--   Atmos. runoff
998  #endif /* ALLOW_RUNOFF_CONTROL */  #endif /* ALLOW_RUNOFF_CONTROL */
999    
1000  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1001    c--
1002    #ifdef ALLOW_SIAREA_CONTROL
1003            startrec = 1
1004            endrec   = 1
1005            diffrec  = endrec - startrec + 1
1006            call ctrl_init_ctrlvar (
1007         &       xx_siarea_file, 41, 141, diffrec, startrec, endrec,
1008         &       snx, sny, 1, 'c', 'xy', mythid )
1009    #endif /* ALLOW_siarea_CONTROL */
1010    
1011    c----------------------------------------------------------------------
1012    c--
1013    #ifdef ALLOW_SIHEFF_CONTROL
1014            startrec = 1
1015            endrec   = 1
1016            diffrec  = endrec - startrec + 1
1017            call ctrl_init_ctrlvar (
1018         &       xx_siheff_file, 42, 142, diffrec, startrec, endrec,
1019         &       snx, sny, 1, 'c', 'xy', mythid )
1020    #endif /* ALLOW_siheff_CONTROL */
1021    
1022    c----------------------------------------------------------------------
1023    c--
1024    #ifdef ALLOW_SIHSNOW_CONTROL
1025            startrec = 1
1026            endrec   = 1
1027            diffrec  = endrec - startrec + 1
1028            call ctrl_init_ctrlvar (
1029         &       xx_sihsnow_file, 43, 143, diffrec, startrec, endrec,
1030         &       snx, sny, 1, 'c', 'xy', mythid )
1031    #endif /* ALLOW_sihsnow_CONTROL */
1032    
1033    
1034    c----------------------------------------------------------------------
1035    c--
1036    #ifdef ALLOW_KAPREDI_CONTROL
1037            call ctrl_init_ctrlvar (
1038         &       xx_kapredi_file, 44, 144, 1, 1, 1,
1039         &       snx, sny, nr, 'c', '3d', mythid )
1040    #endif /* ALLOW_KAPREDI_CONTROL */
1041    
1042    c----------------------------------------------------------------------
1043  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1044    
1045          call ctrl_init_wet( mythid )          call ctrl_init_wet( mythid )
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22