/[MITgcm]/MITgcm/pkg/timeave/timeave_cumul_fc.F
ViewVC logotype

Annotation of /MITgcm/pkg/timeave/timeave_cumul_fc.F

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

Revision 1.1.6.1 - (hide annotations) (download)
Tue Feb 26 16:04:49 2002 UTC (22 years, 3 months ago) by adcroft
Branch: release1
CVS Tags: release1_p13_pre, release1_p13, release1_p8, release1_p9, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, release1_chkpt44d_post, release1_p12, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, release1_p12_pre
Branch point for: release1_50yr
Changes since 1.1: +2 -2 lines 
Merging changes on MAIN between checkpoint43 and checkpoint43a-release1mods
Command: cvs -q update -jcheckpoint43 -jcheckpoint43a-release1mods -d -P

These changes are most of the changes between c43 and c44 except those
that occured after "12:45 11 Jan 2002". As far as I can tell it is
checkpoint43 with the following mods:

  o fix bug in mom_vi_del2uv
  o select when filters are applied ; add options to zonal_filter (data.zonfilt)  o gmredi: fix Pb in the adiabatic form ; add options (.e.g. Bolus advection)
  o update AIM experiments (NCEP input files)
  o improve and extend diagnostics (Monitor, TimeAve with NonLin-FrSurf)
  o added some stuff for AD
  o Jamar wet-points

This update does not contain the following mods that are in checkpoint44

  o bug fix in pkg/generic_advdiff/
    - thread related bug, bi,bj arguments in vertical advection routines
  o some changes to pkg/autodiff, pkg/cost, pkg/exf, pkg/ecco,
    verification/carbon and model/src/ related to adjoint
  o some new Matlab scripts for diagnosing model density
    - utils/matlab/dens_poly3.m and ini_poly3.m

The list of exclusions is accurate based on a "cvs diff". The list of
inclusions is based on the record in doc/tag-index which may not be complete.
1 adcroft 1.1.6.1 C $Header: /u/gcmpack/MITgcm/pkg/timeave/timeave_cumul_fc.F,v 1.1 2002/01/03 15:56:52 jmc Exp $
2     C $Name: checkpoint43a-release1mods $
3 jmc 1.1 #include "CPP_OPTIONS.h"
4    
5     CStartofinterface
6     SUBROUTINE TIMEAVE_CUMUL_FC(
7     O fldtave,
8     I fld, Ksize, deltaT,
9     I bi, bj, myThid )
10     C /==========================================================\
11     C | SUBROUTINE TIMEAVE_CUMUL_FC |
12     C | o Sum over time a single RS array into a RL array |
13     C \==========================================================/
14     IMPLICIT NONE
15    
16     C == Global variables ===
17     #include "SIZE.h"
18     #include "EEPARAMS.h"
19    
20     C == Routine arguments ==
21     C myThid - Thread number for this instance of the routine.
22     C fldtave - time averaged Field
23     C fld - Input Field
24     C Ksize - 3rd dimension of local arrays (Input and Output fields)
25     INTEGER Ksize
26     _RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
27     _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
28     _RL deltaT
29     INTEGER bi, bj, myThid
30    
31     CEndofinterface
32    
33     C == Local variables ==
34     C i,j,k,bi,bj - Loop counters
35     INTEGER i, j, k
36    
37     C DO bj = myByLo(myThid), myByHi(myThid)
38     C DO bi = myBxLo(myThid), myBxHi(myThid)
39     DO k=1,Ksize
40     DO j=1,sNy
41     DO i=1,sNx
42     fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
43     & + deltaT*fld(i,j,k,bi,bj)
44     ENDDO
45     ENDDO
46     ENDDO
47     C ENDDO
48     C ENDDO
49    
50     RETURN
51     END
  ViewVC Help
Powered by ViewVC 1.1.22