Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/gcm.F

Timestamp:

Sep 20, 2006, 12:12:39 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nouvelles versions de la dynamique YM
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/gcm.F (modified) (4 diffs)

LMDZ4/branches/V3_test/libf/dyn3dpar/gcm.F

@@ -119 +119 @@
       REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
       CHARACTER*15 ztit
-      INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
-      SAVE      ip_ebil_dyn
-      DATA      ip_ebil_dyn/0/
 c-jld 
 
@@ -208 +205 @@
       call InitDimphy
       call InitBands
+      call MPI_BARRIER(COMM_LMDZ,ierr)
       if (mpi_rank==0) call WriteBands
       call SetDistrib(jj_Nb_Caldyn)
@@ -218 +216 @@
       enddo
       call Init_Mod_hallo(MPI_Buffer)
-
+c$OMP PARALLEL
+      call init_phys_openmp
       call InitComgeomphy
-
+c$OMP END PARALLEL 
 #ifdef INCA
       call init_inca_dim
@@ -362 +361 @@
          WRITE(lunout,*)
      .           'WARNING!!! vitesse verticale nulle dans la physique'
+
          CALL iniphysiq(ngridmx,llm,daysec,day_ini,dtphys ,
      ,                latfi,lonfi,airefi,zcufi,zcvfi,rad,g,r,cpp     )
+
          call_iniphys=.false.
       ENDIF