/[MITgcm]/MITgcm/pkg/ecco/cost_restore_averagesflags.F
ViewVC logotype

Contents of /MITgcm/pkg/ecco/cost_restore_averagesflags.F

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

Revision 1.2 - (show annotations) (download)
Fri Jul 7 22:53:36 2006 UTC (17 years, 10 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58u_post, checkpoint58r_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58w_post, checkpoint58q_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59h, checkpoint59, checkpoint58o_post, checkpoint58y_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint58m_post
Changes since 1.1: +9 -4 lines 
o cost_averagesflags now returns year indices in addition to day, month
o sflux balance is performed on annual basis
  (sflxumm, sfluxmm2, bal_sfluxmm)
o for SSH anomaly, separate more cleanly contrib from T/P, ERS, GFO,
  including separate counting and multipliers
1
2 #include "COST_CPPOPTIONS.h"
3
4 subroutine cost_restore_averagesflags(
5 & lcostrestart, first, last,
6 & sum1day, dayrec, restartdaydate,
7 & sum1mon, monrec, restartmondate,
8 & sum1year,yearrec, restartyeardate,
9 & mythid )
10
11 c ==================================================================
12 c SUBROUTINE cost_restore_averagesflags
13 c ==================================================================
14
15 implicit none
16
17 c == global variables ==
18
19 #include "EEPARAMS.h"
20 #include "SIZE.h"
21 #include "PARAMS.h"
22
23 c == routine arguments ==
24
25 logical lcostrestart
26 logical first
27 logical last
28 integer sum1day
29 integer dayrec
30 integer sum1mon
31 integer monrec
32 integer sum1year
33 integer yearrec
34 _RL restartdaydate(4)
35 _RL restartmondate(4)
36 _RL restartyeardate(4)
37 integer mythid
38
39
40 IF (myProcId .eq. 0) THEN
41 _BEGIN_MASTER( mythid )
42 open(unit=76,file='costaveragesflags')
43 read(76,*)
44 & sum1day, dayrec, sum1mon, monrec, sum1year,yearrec,
45 & restartdaydate, restartmondate, restartyeardate
46 close(76)
47 _END_MASTER( mythid )
48 ENDIF
49
50 end
  ViewVC Help
Powered by ViewVC 1.1.22