source: LMDZ5/trunk/libf/phymar/PHY_Atm_DY_RUN.f90 @ 3302

Last change on this file since 3302 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.5 KB
Line 
1      subroutine PHY_Atm_DY_RUN
2
3!------------------------------------------------------------------------------+
4!                                                         Sat  8-Jun-2013  MAR |
5!   MAR          PHY_Atm_DY_RUN                                                |
6!     subroutine PHY_Atm_DY_RUN  updates Variables coming from MAR Dynamics    |
7!                                                                              |
8!     version 3.p.4.1 created by H. Gallee,               Fri 22-Mar-2013      |
9!           Last Modification by H. Gallee,               Sat  8-Jun-2013      |
10!                                                                              |
11!------------------------------------------------------------------------------+
12
13      use Mod_Real
14      use Mod_PHY____dat
15      use Mod_PHY____grd
16      use Mod_PHY_DY_kkl
17      use Mod_PHY_AT_kkl
18! #LD use Mod_PHY_CM_kkl
19
20
21      IMPLICIT NONE
22
23
24
25      integer    ::    i,     j,     k,     ikl
26
27
28
29! Assignation    of Mod_PHY_DY_kkl
30! ================================
31
32
33        DO ikl = 1,kcolp
34
35        DO   k = 1,mzpp 
36
37! #LD     ld_H2O(ikl,k) = qv__DY(ikl,k)                                 &
38! #LD&           - 1.64 *(qw__CM(ikl,k)+qi__CM(ikl,k)                   &
39! #LD&                   +qs__CM(ikl,k)+qr__CM(ikl,k))                  &
40!    &                   +Aerosols ...
41! #LD&           + 0.00
42
43          TmidDY(ikl,k) =(Ta__DY(ikl,k)+Ta__DY(ikl,min(k+1,mzpp))) * 0.5
44        ENDDO
45
46
47        ENDDO
48
49
50      end subroutine PHY_Atm_DY_RUN
Note: See TracBrowser for help on using the repository browser.