Parent Directory
| 
Revision Log
| 
Revision Graph
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 | C $Header: /u/gcmpack/MITgcm/pkg/zonal_filt/zonal_filt_apply_uv.F,v 1.1 2001/12/11 14:49:07 jmc Exp $ |
| 2 | C $Name: checkpoint43a-release1mods $ |
| 3 | |
| 4 | #include "ZONAL_FILT_OPTIONS.h" |
| 5 | |
| 6 | SUBROUTINE ZONAL_FILT_APPLY_UV( |
| 7 | U uFld, vFld, |
| 8 | I myThid ) |
| 9 | C /==========================================================\ |
| 10 | C | S/R ZONAL_FILT_APPLY_UV | |
| 11 | C | o Apply FFT filter to a latitude circle. | |
| 12 | C \==========================================================/ |
| 13 | IMPLICIT NONE |
| 14 | |
| 15 | C == Global data == |
| 16 | #include "SIZE.h" |
| 17 | #include "EEPARAMS.h" |
| 18 | #include "PARAMS.h" |
| 19 | #include "GRID.h" |
| 20 | |
| 21 | C == Routine arguments == |
| 22 | _RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
| 23 | _RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
| 24 | INTEGER myThid |
| 25 | |
| 26 | #ifdef ALLOW_ZONAL_FILT |
| 27 | |
| 28 | C == Local data == |
| 29 | INTEGER K,bi,bj |
| 30 | |
| 31 | DO bj=myByLo(myThid),myByHi(myThid) |
| 32 | DO bi=myBxLo(myThid),myBxHi(myThid) |
| 33 | |
| 34 | DO k=1,Nr |
| 35 | CALL ZONAL_FILTER( |
| 36 | & uFld, hFacW, 1-1, sNy+1, k, k, bi, bj, 1, myThid) |
| 37 | CALL ZONAL_FILTER( |
| 38 | & vFld, hFacS, 1-1, sNy+1, k, k, bi, bj, 2, myThid) |
| 39 | ENDDO |
| 40 | |
| 41 | ENDDO |
| 42 | ENDDO |
| 43 | |
| 44 | #endif /* ALLOW_ZONAL_FILT */ |
| 45 | |
| 46 | RETURN |
| 47 | END |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |