Ignore:
Timestamp:
May 4, 2005, 5:11:29 PM (19 years ago)
Author:
Laurent Fairhead
Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/conlmd.F

    r524 r634  
    44      SUBROUTINE conlmd (dtime, paprs, pplay, t, q, conv_q,
    55     s                   d_t, d_q, rain, snow, ibas, itop)
     6      USE dimphy
    67      IMPLICIT none
    78c======================================================================
    … …  
    1011c        Ajustement humide (Manabe) + Ajustement convectif (Kuo)
    1112c======================================================================
    12 #include "dimensions.h"
    13 #include "dimphy.h"
     13cym#include "dimensions.h"
     14cym#include "dimphy.h"
    1415#include "YOMCST.h"
    1516#include "YOETHF.h"
    … …  
    9394     s                   d_t, d_q, d_ql, rneb,
    9495     s                   rain, snow, ibas, itop)
     96      USE dimphy
    9597      IMPLICIT none
    9698c======================================================================
    … …  
    105107c du modele.
    106108c======================================================================
    107 #include "dimensions.h"
    108 #include "dimphy.h"
     109cym#include "dimensions.h"
     110cym#include "dimphy.h"
    109111#include "YOMCST.h"
    110112c
    … …  
    301303     s                    d_t, d_q, d_ql, rneb,
    302304     s                    rain, snow, ibas, itop,accompli,imprim)
     305      USE dimphy
    303306      IMPLICIT none
    304307c======================================================================
    … …  
    309312c        et itop est le haut du plus haut bloc
    310313c======================================================================
    311 #include "dimensions.h"
    312 #include "dimphy.h"
     314cym#include "dimensions.h"
     315cym#include "dimphy.h"
    313316#include "YOMCST.h"
    314317c
    … …  
    10641067     s                  d_t, d_q, d_ql, rneb,
    10651068     s                  rain, snow, ibas, itop)
     1069      USE dimphy
    10661070      IMPLICIT none
    10671071c======================================================================
    … …  
    10711075c N.B. version vectorielle (le 6 oct. 1997)
    10721076c======================================================================
    1073 #include "dimensions.h"
    1074 #include "dimphy.h"
     1077cym#include "dimensions.h"
     1078cym#include "dimphy.h"
    10751079#include "YOMCST.h"
    10761080c
    … …  
    15871591      END
    15881592      SUBROUTINE kuofcl(pt, pq, pg, pp, LDCUM, kcbot)
     1593      USE dimphy
    15891594      IMPLICIT none
    15901595c======================================================================
    … …  
    16031608c kcbot---output-I- Niveau du bas de la convection
    16041609c======================================================================
    1605 #include "dimensions.h"
    1606 #include "dimphy.h"
     1610cym#include "dimensions.h"
     1611cym#include "dimphy.h"
    16071612#include "YOMCST.h"
    16081613#include "YOETHF.h"
    … …  
    16881693      END
    16891694      SUBROUTINE adjtq(pp, pt, pq, LDFLAG, KCALL)
     1695      USE dimphy
    16901696      IMPLICIT none
    16911697c======================================================================
    … …  
    17061712C        KCALL=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
    17071713C
    1708 #include "dimensions.h"
    1709 #include "dimphy.h"
     1714cym#include "dimensions.h"
     1715cym#include "dimphy.h"
    17101716#include "YOMCST.h"
    17111717C
    … …  
    17971803     .                 d_t, d_q, d_ql, rneb,
    17981804     .                 rain, snow, ibas, itop)
     1805      USE dimphy
    17991806      IMPLICIT NONE
    18001807c
    18011808c Ajustement humide (Schema de convection de Manabe)
    18021809C.
    1803 #include "dimensions.h"
    1804 #include "dimphy.h"
     1810cym#include "dimensions.h"
     1811cym#include "dimphy.h"
    18051812#include "YOMCST.h"
    18061813c
    … …  
    20952102     .                 d_t, d_q, d_ql,rneb,
    20962103     .                 rain, snow, ibas, itop)
     2104      USE dimphy
    20972105      IMPLICIT NONE
    20982106c
    2099 #include "dimensions.h"
    2100 #include "dimphy.h"
     2107cym#include "dimensions.h"
     2108cym#include "dimphy.h"
    21012109#include "YOMCST.h"
    21022110c
Note: See TracChangeset for help on using the changeset viewer.