/[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.6 by jmc, Thu Mar 11 14:33:19 2004 UTC revision 1.7 by jmc, Thu Jun 24 23:43:11 2004 UTC
# Line 46  C--  Set default value for AIM interface Line 46  C--  Set default value for AIM interface
46        aim_surfPotTemp = .FALSE.        aim_surfPotTemp = .FALSE.
47        aim_energPrecip = .FALSE.        aim_energPrecip = .FALSE.
48        aim_splitSIOsFx = .FALSE.        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 149  C      i.e. not loaded from history file Line 150  C      i.e. not loaded from history file
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)          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.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22