/[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.4 by jmc, Wed Feb 26 03:10:50 2003 UTC revision 1.7 by jmc, Thu Jun 24 23:43:11 2004 UTC
# Line 44  C--  Set default value for AIM interface Line 44  C--  Set default value for AIM interface
44        aim_useFMsurfBC = .TRUE.        aim_useFMsurfBC = .TRUE.
45        aim_useMMsurfFc = .FALSE.        aim_useMMsurfFc = .FALSE.
46        aim_surfPotTemp = .FALSE.        aim_surfPotTemp = .FALSE.
47          aim_energPrecip = .FALSE.
48          aim_splitSIOsFx = .FALSE.
49          aim_clrSkyDiag  = .FALSE.
50        aim_MMsufx = '.bin'        aim_MMsufx = '.bin'
51        aim_MMsufxLength = 4        aim_MMsufxLength = 4
52        aim_LandFile = ' '        aim_LandFile = ' '
# Line 54  C--  Set default value for AIM interface Line 57  C--  Set default value for AIM interface
57        aim_oiceFile = ' '        aim_oiceFile = ' '
58        aim_snowFile = ' '        aim_snowFile = ' '
59        aim_swcFile  = ' '        aim_swcFile  = ' '
60          aim_dragStrato = 0.
61        aim_taveFreq = taveFreq        aim_taveFreq = taveFreq
62        aim_diagFreq = dumpFreq        aim_diagFreq = dumpFreq
63        aim_tendFreq = 0.        aim_tendFreq = 0.
# Line 145  C      i.e. not loaded from history file Line 149  C      i.e. not loaded from history file
149          CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid)
150          CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid)
151          CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid)          CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid)
152            CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid)
153            CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid)
154            CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid)
155          CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid)
156          DO k=1,Nr          DO k=1,Nr
157            aim_timeAve(k,bi,bj) = 0.            aim_timeAve(k,bi,bj) = 0.
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22