Changeset 1146 for LMDZ4/trunk/libf/dyn3dpar/create_etat0_limit.F

Timestamp:

Apr 9, 2009, 12:11:35 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3dpar/create_etat0_limit.F (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3dpar/create_etat0_limit.F

@@ -8 +8 @@
        USE mod_const_mpi
        USE phys_state_var_mod      
+       USE infotrac
        IMPLICIT NONE
 c
@@ -31 +32 @@
 #include "paramet.h"
 #include "indicesol.h"
-#include "advtrac.h"
 #include  "control.h"
 #include "clesphys.h"
@@ -37 +37 @@
 !      REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
 
-c initialisation traceurs
-      hadv_flg(:) = 0.
-      vadv_flg(:) = 0.
-      conv_flg(:) = 0.
-      pbl_flg(:)  = 0. 
-      tracnam(:)  = '        ' 
-      nprath = 1
-      nbtrac = 0
-      mmt_adj(:,:,:,:) = 1
-
       IF (config_inca /= 'none') THEN
 #ifdef INCA
          call init_const_lmdz(
-     $        nbtrac,anneeref,dayref,
+     $        nbtr,anneeref,dayref,
      $        iphysiq,day_step,nday)
 #endif
-         print *, 'nbtrac =' , nbtrac 
+         print *, 'nbtr =' , nbtr 
       END IF
 
@@ -59 +49 @@
 
 
-      CALL Init_Phys_lmdz(iim,jjp1,llm,nqmx-2,1,(/(jjm-1)*iim+2/))
+      CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
       PRINT *,'---> klon=',klon