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/conemav.F

    r524 r634  
    99 
    1010c
     11      USE dimphy
    1112      IMPLICIT none
    1213c======================================================================
    … …  
    4344c
    4445#include "dimensions.h"
    45 #include "dimphy.h"
     46cym#include "dimphy.h"
    4647c
    4748      integer NTRAC
    … …  
    7374       INTEGER i,k,itra
    7475       REAL qs(klon,klev)
    75        REAL cbmf(klon)
    76        SAVE cbmf
     76cym       REAL cbmf(klon)
     77cym       SAVE cbmf
     78       REAL,ALLOCATABLE,SAVE :: cbmf(:)
    7779       INTEGER ifrst
    7880       SAVE ifrst
    … …  
    8587      IF (ifrst .EQ. 0) THEN
    8688         ifrst = 1
     89         allocate(cbmf(klon))
    8790         DO i = 1, klon
    8891          cbmf(i) = 0.
Note: See TracChangeset for help on using the changeset viewer.