/[MITgcm]/MITgcm/pkg/aim_v23/AIM_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/AIM_PARAMS.h

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

revision 1.1 by jmc, Tue Dec 10 02:35:27 2002 UTC revision 1.7 by edhill, Thu Jun 23 20:02:50 2005 UTC
# Line 13  C--   COMMON /AIM_PARM_L/ Logical valued Line 13  C--   COMMON /AIM_PARM_L/ Logical valued
13  C     aim_useFMsurfBC :: select surface B.C. from Franco Molteni  C     aim_useFMsurfBC :: select surface B.C. from Franco Molteni
14  C     aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP)  C     aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP)
15  C     aim_surfPotTemp :: surf.Temp input file is in Pot.Temp (aim_useMMsurfFc)  C     aim_surfPotTemp :: surf.Temp input file is in Pot.Temp (aim_useMMsurfFc)
16    C     aim_energPrecip :: account for energy of precipitation (snow & rain temp)
17    C     aim_splitSIOsFx :: compute separately Sea-Ice & Ocean surf. Flux
18    C                 (also land SW & LW) ; default=F as in original version
19    C     aim_clrSkyDiag  :: compute clear-sky radiation for diagnostics
20    C     aim_tave_mdsio  :: write TimeAverage output using MDSIO
21    C     aim_tave_mnc    :: write TimeAverage output using MNC
22        COMMON /AIM_PARM_L/        COMMON /AIM_PARM_L/
23       &  aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp       &     aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp,
24         &     aim_energPrecip, aim_splitSIOsFx, aim_clrSkyDiag,
25         &     aim_tave_mdsio,  aim_tave_mnc
26        LOGICAL aim_useFMsurfBC        LOGICAL aim_useFMsurfBC
27        LOGICAL aim_useMMsurfFc        LOGICAL aim_useMMsurfFc
28        LOGICAL aim_surfPotTemp        LOGICAL aim_surfPotTemp
29          LOGICAL aim_energPrecip
30          LOGICAL aim_splitSIOsFx
31          LOGICAL aim_clrSkyDiag
32          LOGICAL aim_tave_mdsio,  aim_tave_mnc
33    
34  C--   COMMON /AIM_PARM_C/ Character valued parameters for AIM  C--   COMMON /AIM_PARM_C/ Character valued parameters for AIM
35    C     aim_LandFile :: file name for Land fraction
36  C     aim_MMsufx   :: sufix for all Monthly Mean surface forcing files  C     aim_MMsufx   :: sufix for all Monthly Mean surface forcing files
 C     aim_LandFile :: file name for Land fraction       (F.M. surfBC)  
37  C     aim_albFile  :: file name for Albedo input file   (F.M. surfBC)  C     aim_albFile  :: file name for Albedo input file   (F.M. surfBC)
38  C     aim_vegFile  :: file name for vegetation fraction (F.M. surfBC)  C     aim_vegFile  :: file name for vegetation fraction (F.M. surfBC)
39  C     aim_sstFile  :: file name for  Sea.Surf.Temp      (F.M. surfBC)  C     aim_sstFile  :: file name for  Sea.Surf.Temp      (F.M. surfBC)
# Line 30  C     aim_oiceFile :: file name for Sea Line 42  C     aim_oiceFile :: file name for Sea
42  C     aim_snowFile :: file name for Snow depth          (F.M. surfBC)  C     aim_snowFile :: file name for Snow depth          (F.M. surfBC)
43  C     aim_swcFile  :: file name for Soil Water content  (F.M. surfBC)  C     aim_swcFile  :: file name for Soil Water content  (F.M. surfBC)
44        COMMON /AIM_PARM_C/        COMMON /AIM_PARM_C/
45       &  aim_MMsufx,       &  aim_LandFile, aim_MMsufx,
46       &  aim_LandFile, aim_albFile, aim_vegFile,       &  aim_albFile, aim_vegFile,
47       &  aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,       &  aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,
48       &  aim_swcFile       &  aim_swcFile
       CHARACTER*(MAX_LEN_FNAM) aim_MMsufx  
49        CHARACTER*(MAX_LEN_FNAM) aim_LandFile        CHARACTER*(MAX_LEN_FNAM) aim_LandFile
50          CHARACTER*(MAX_LEN_FNAM) aim_MMsufx
51        CHARACTER*(MAX_LEN_FNAM) aim_albFile        CHARACTER*(MAX_LEN_FNAM) aim_albFile
52        CHARACTER*(MAX_LEN_FNAM) aim_vegFile        CHARACTER*(MAX_LEN_FNAM) aim_vegFile
53        CHARACTER*(MAX_LEN_FNAM) aim_sstFile        CHARACTER*(MAX_LEN_FNAM) aim_sstFile
# Line 51  C     aim_MMsufxLength :: Length of sufi Line 63  C     aim_MMsufxLength :: Length of sufi
63        INTEGER aim_MMsufxLength        INTEGER aim_MMsufxLength
64    
65  C--   COMMON /AIM_PARM_R/ "Real" valued parameters for AIM  C--   COMMON /AIM_PARM_R/ "Real" valued parameters for AIM
66    C     aim_dragStrato :: stratospheric-drag damping time scale (s)
67    C     aim_taveFreq :: Frequency^-1 for time-average output (s)
68  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)
69  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)
70        COMMON /AIM_PARM_R/        COMMON /AIM_PARM_R/
71       &  aim_diagFreq, aim_tendFreq       &  aim_dragStrato,
72         &  aim_taveFreq, aim_diagFreq, aim_tendFreq
73          _RL aim_dragStrato
74          _RL aim_taveFreq
75        _RL aim_diagFreq        _RL aim_diagFreq
76        _RL aim_tendFreq        _RL aim_tendFreq
77    
78  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
79    
80    CEH3 ;;; Local Variables: ***
81    CEH3 ;;; mode:fortran ***
82    CEH3 ;;; End: ***
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22