/[MITgcm]/MITgcm/pkg/aim_v23/aim_initialise.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_initialise.F

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

revision 1.8 by jmc, Sun Nov 14 19:54:01 2004 UTC revision 1.9 by edhill, Thu Jun 23 20:02:50 2005 UTC
# Line 24  C     -------------- Global variables -- Line 24  C     -------------- Global variables --
24  #include "AIM_FFIELDS.h"  #include "AIM_FFIELDS.h"
25  c #include "AIM_GRID.h"  c #include "AIM_GRID.h"
26  #include "AIM_DIAGS.h"  #include "AIM_DIAGS.h"
27    #ifdef ALLOW_MNC
28    #include "MNC_PARAMS.h"
29    #endif
30    
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     myThid -  Number of this instance  C     myThid -  Number of this instance
# Line 46  C--  Set default value for AIM interface Line 49  C--  Set default value for AIM interface
49        aim_energPrecip = .FALSE.        aim_energPrecip = .FALSE.
50        aim_splitSIOsFx = .FALSE.        aim_splitSIOsFx = .FALSE.
51        aim_clrSkyDiag  = .FALSE.        aim_clrSkyDiag  = .FALSE.
52          aim_tave_mdsio  = .TRUE.
53    #ifdef ALLOW_MNC
54          aim_tave_mnc    = timeave_mnc
55    #else
56          aim_tave_mnc    = .FALSE.
57    #endif
58        aim_MMsufx = '.bin'        aim_MMsufx = '.bin'
59        aim_MMsufxLength = 4        aim_MMsufxLength = 4
60        aim_LandFile = ' '        aim_LandFile = ' '
# Line 60  C--  Set default value for AIM interface Line 69  C--  Set default value for AIM interface
69        aim_taveFreq = taveFreq        aim_taveFreq = taveFreq
70        aim_diagFreq = dumpFreq        aim_diagFreq = dumpFreq
71        aim_tendFreq = 0.        aim_tendFreq = 0.
72          
73  C--  Set default value for atmos. physics parameters:  C--  Set default value for atmos. physics parameters:
74        pGround = atm_Po        pGround = atm_Po
75        DO k=1,Nr        DO k=1,Nr
# Line 127  C--   Initialise Land Fraction (in AIM_F Line 136  C--   Initialise Land Fraction (in AIM_F
136           CALL READ_REC_XY_RS(aim_LandFile,aim_landFr,1,nIter0,myThid)           CALL READ_REC_XY_RS(aim_LandFile,aim_landFr,1,nIter0,myThid)
137        ENDIF        ENDIF
138    
139    #ifdef ALLOW_MNC
140          IF (useMNC) THEN
141            CALL AIM_MNC_INIT( myThid )
142          ENDIF
143    #endif /*  ALLOW_MNC  */
144    
145  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
146    
147        RETURN        RETURN
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22