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
|
Rev | Line | |
---|
[1508] | 1 | SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont ) |
---|
[1] | 2 | ! |
---|
[1508] | 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 |
---|
[1] | 27 | |
---|
[1508] | 28 | END SUBROUTINE covcont |
---|
[1] | 29 | |
---|
Note: See
TracBrowser
for help on using the repository browser.