Last change
on this file since 3537 was
1508,
checked in by emillour, 9 years ago
|
Common dynamics:
Updates in the dynamics (seq and ) to keep up with updates
in LMDZ5 (up to LMDZ5 trunk, rev 2325):
IMPORTANT: Modifications for isotopes are only done in dyn3d, not in dyn3dpar
as in LMDZ5 these modifications were done in dyn3dmem.
Related LMDZ5 revisions are r2270 and r2281
- in dynlonlat_phylonlat:
- add module "grid_atob_m.F90" (a regridding utility
so far only used by phylmd/ce0l.F90, used to be dyn3d_common/grid_atob.F)
- in misc:
- follow up updates on wxios.F (add missing_val module variable)
- in dyn3d_common:
- pression.F => pression.F90
- misc_mod.F90: moved from misc to dyn3d_common
- added new iso_verif_dyn.F
- covcont.F => covcont.F90
- infotrac.F90 : add handling of isotopes (reading of corresponding
traceur.def for planets not implemented)
- dynetat0.F => dynetat0.F90 with some code factorization
- dynredem.F => dynredem.F90 with some code factorization
- added dynredem_mod.F90: routines used by dynredem
- iniacademic.F90 : added isotopes-related initialization for Earth case
- in dyn3d:
- added check_isotopes.F
- modified (isotopes) advtrac.F90, caladvtrac.F
- guide_mod.F90: ported updates
- leapfrog.F : (isotopes) updates (NB: call integrd with nqtot tracers)
- qminimium.F : adaptations for isotopes (copied over, except that #include
comvert.h is not needed).
- vlsplt.F: adaptations for isotopes (copied over, except than #include
logic.h, comvert.h not needed, and replace "include comconst.h" with
use comconst_mod, ONLY: pi)
- vlspltqs.F : same as vlsplt.F, but also keeping added modification for CP(T)
- in dyn3dpar:
- leapfrog_p.F: remove unecessary #ifdef CPP_EARTH cpp flag. and call
integrd_p with nqtot tracers (only important for Earth)
- dynredem_p.F => dynredem_p.F90 and some code factorization
- and no isotopes-relates changes in dyn3dpar (since these changes
have been made in LMDZ5 dyn3dmem).
EM
|
File size:
1.3 KB
|
Line | |
---|
1 | SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont ) |
---|
2 | ! |
---|
3 | !------------------------------------------------------------------------------- |
---|
4 | ! Author: P. Le Van |
---|
5 | !------------------------------------------------------------------------------- |
---|
6 | ! Purpose: Compute contravariant components from covariant components. |
---|
7 | !------------------------------------------------------------------------------- |
---|
8 | IMPLICIT NONE |
---|
9 | include "dimensions.h" |
---|
10 | include "paramet.h" |
---|
11 | include "comgeom.h" |
---|
12 | !=============================================================================== |
---|
13 | ! Arguments: |
---|
14 | INTEGER, INTENT(IN) :: klevel !--- VERTICAL LEVELS NUMBER |
---|
15 | REAL, INTENT(IN) :: ucov ( ip1jmp1,klevel ) !--- U COVARIANT WIND |
---|
16 | REAL, INTENT(IN) :: vcov ( ip1jm ,klevel ) !--- V COVARIANT WIND |
---|
17 | REAL, INTENT(OUT) :: ucont( ip1jmp1,klevel ) !--- U CONTRAVAR WIND |
---|
18 | REAL, INTENT(OUT) :: vcont( ip1jm ,klevel ) !--- V CONTRAVAR WIND |
---|
19 | !=============================================================================== |
---|
20 | ! Local variables: |
---|
21 | INTEGER :: l |
---|
22 | !=============================================================================== |
---|
23 | DO l=1,klevel |
---|
24 | ucont(iip2:ip1jm,l)=ucov(iip2:ip1jm,l) * unscu2(iip2:ip1jm) |
---|
25 | vcont( 1:ip1jm,l)=vcov( 1:ip1jm,l) * unscv2( 1:ip1jm) |
---|
26 | END DO |
---|
27 | |
---|
28 | END SUBROUTINE covcont |
---|
29 | |
---|
Note: See
TracBrowser
for help on using the repository browser.