/[MITgcm]/MITgcm/pkg/bulk_force/bulkf_ave.F
ViewVC logotype

Contents of /MITgcm/pkg/bulk_force/bulkf_ave.F

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

Revision 1.6 - (show annotations) (download)
Sun Nov 23 01:36:55 2003 UTC (20 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint57g_pre, checkpoint57s_post, checkpoint57b_post, checkpoint52d_pre, checkpoint57g_post, checkpoint56b_post, checkpoint52j_pre, checkpoint54d_post, checkpoint54e_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52f_post, checkpoint57n_post, checkpoint54f_post, checkpoint55i_post, checkpoint57l_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint57t_post, checkpoint55c_post, checkpoint52e_pre, checkpoint57v_post, checkpoint57f_post, checkpoint52e_post, checkpoint53d_post, checkpoint57a_post, checkpoint57h_pre, checkpoint54b_post, checkpoint57h_post, checkpoint52m_post, checkpoint55g_post, checkpoint52b_post, checkpoint52c_post, checkpoint57c_post, checkpoint52f_pre, checkpoint55d_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint57e_post, checkpoint55b_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint52i_post, checkpoint52h_pre, checkpoint56a_post, checkpoint53f_post, checkpoint57h_done, checkpoint52j_post, checkpoint57j_post, checkpoint57f_pre, branch-netcdf, checkpoint52l_post, checkpoint52n_post, checkpoint53b_pre, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint57k_post, checkpoint53b_post, checkpoint57w_post, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post
Branch point for: netcdf-sm0
Changes since 1.5: +4 -9 lines 
light cleaning to make it work with new thSIce pkg.
1 C $Header: $
2 C $Name: $
3
4 #include "BULK_FORCE_OPTIONS.h"
5
6 C !ROUTINE: BULKF_AVE
7 C !INTERFACE:
8 SUBROUTINE BULKF_AVE(bi,bj,mythid)
9 C *==========================================================*
10 C | S/R BULKF_AVE
11 C | o save values for timeaveraging
12 C | for sea/ice surface and atmosphere
13 C *==========================================================*
14
15 C !USES:
16 IMPLICIT NONE
17 C == Global variables ==
18 #include "SIZE.h"
19 #include "EEPARAMS.h"
20 #include "PARAMS.h"
21 #include "FFIELDS.h"
22 #include "BULKF.h"
23 #include "BULKF_INT.h"
24 #include "BULKF_DIAG.h"
25 c == routine arguments ==
26
27 integer mythid
28 integer bi,bj
29
30 #ifdef ALLOW_BULK_FORCE
31 #ifdef ALLOW_TIMEAVE
32
33 integer i,j,k
34
35 C-- Time-average
36 do j = 1,sny
37 do i = 1,snx
38 BULK_Qnet_AVE(i,j,bi,bj)=BULK_Qnet_AVE(i,j,bi,bj)
39 & +Qnet(i,j,bi,bj)*deltaTclock
40 c & +lambdaThetaClimRelax*
41 c & (theta(i,j,1,bi,bj)-SST(i,j,bi,bj))/
42 c & (recip_Cp*recip_rhoNil*recip_dRf(1))*deltaTclock
43 BULK_EmPmR_AVE(i,j,bi,bj)=BULK_EmPmR_AVE(i,j,bi,bj)
44 & +EmPmR(i,j,bi,bj)*deltaTclock
45 BULK_fu_AVE(i,j,bi,bj)=BULK_fu_AVE(i,j,bi,bj)
46 & +fu(i,j,bi,bj)*deltaTclock
47 BULK_fv_AVE(i,j,bi,bj)=BULK_fv_AVE(i,j,bi,bj)
48 & +fv(i,j,bi,bj)*deltaTclock
49 BULK_latent_AVE(i,j,bi,bj)=BULK_latent_AVE(i,j,bi,bj)
50 & +flh(i,j,bi,bj)*deltaTclock
51 BULK_sensible_AVE(i,j,bi,bj)=BULK_sensible_AVE(i,j,bi,bj)
52 & +fsh(i,j,bi,bj)*deltaTclock
53 BULK_evap_AVE(i,j,bi,bj)=BULK_evap_AVE(i,j,bi,bj)
54 & +evap(i,j,bi,bj)*deltaTclock
55 BULK_flwup_AVE(i,j,bi,bj)=BULK_flwup_AVE(i,j,bi,bj)
56 & +flwup(i,j,bi,bj)*deltaTclock
57 BULK_flwupnet_AVE(i,j,bi,bj)=BULK_flwupnet_AVE(i,j,bi,bj)
58 & +flwupnet(i,j,bi,bj)*deltaTclock
59 BULK_solar_AVE(i,j,bi,bj)=BULK_solar_AVE(i,j,bi,bj)
60 & +fswnet(i,j,bi,bj)*deltaTclock
61 BULK_ssq_AVE(i,j,bi,bj)=BULK_ssq_AVE(i,j,bi,bj)
62 & +savssq(i,j,bi,bj)*deltaTclock
63 enddo
64 enddo
65 BULKF_timeave(1,bi,bj)=BULKF_timeave(1,bi,bj)+deltaTclock
66
67
68 #endif /*ALLOW_TIMEAVE*/
69 #endif /*ALLOW_BULK_FORCE*/
70 RETURN
71 END
72
  ViewVC Help
Powered by ViewVC 1.1.22