Changeset 2372 for LMDZ5/trunk/libf/dyn3dmem/gcm.F90

Timestamp:

Oct 13, 2015, 2:41:47 PM (9 years ago)

Author:

acozic

Message:

Change call to inca initialisation to fit with new sections dynamique/physic

File:

• LMDZ5/trunk/libf/dyn3dmem/gcm.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dmem/gcm.F90

@@ -17 +17 @@
   USE filtreg_mod
   USE control_mod
-
-#ifdef INCA
-  ! Only INCA needs these informations (from the Earth's physics)
-  USE indice_sol_mod
-  USE mod_phys_lmdz_omp_data, ONLY: klon_omp 
-  USE mod_grid_phy_lmdz, ONLY : klon_glo
-#endif
 
 #ifdef CPP_PHYS
@@ -74 +67 @@
   include "tracstoke.h"
 
-#ifdef INCA
-  ! Only INCA needs these informations (from the Earth's physics)
-  !include "indicesol.h"
-#endif
 
   REAL zdtvr
@@ -198 +187 @@
 #endif
 
-  IF (type_trac == 'inca') THEN
-#ifdef INCA
-     call init_const_lmdz( &
-          nbtr,anneeref,dayref, &
-          iphysiq,day_step,nday,  &
-          nbsrf, is_oce,is_sic, &
-          is_ter,is_lic, calend)
-
-     call init_inca_para( &
-          iim,jjm+1,llm,klon_glo,mpi_size, &
-          distrib_phys,COMM_LMDZ)
-#endif
-  END IF
 
   !-----------------------------------------------------------------------
@@ -408 +384 @@
 
   !-----------------------------------------------------------------------
-  !   Initialisation des dimensions d'INCA :
-  !   --------------------------------------
-  IF (type_trac == 'inca') THEN
-     !$OMP PARALLEL
-#ifdef INCA
-     CALL init_inca_dim(klon_omp,llm,iim,jjm, &
-          rlonu,rlatu,rlonv,rlatv)
-#endif
-     !$OMP END PARALLEL
-  END IF
-
-  !-----------------------------------------------------------------------
   !   Initialisation des I/O :
   !   ------------------------