Changeset 726 for LMDZ4/branches/V3_test/libf/dyn3d/gcm.F

Timestamp:

Nov 6, 2006, 4:51:16 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour rendre INCA plus independant de LMDZ ACo
LF

File:

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

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

@@ -58 +58 @@
 #include "iniprint.h"
 #include "tracstoke.h"
-
+#include "advtrac.h"
 
       INTEGER         longcles
@@ -145 +145 @@
       dynhistave_file = 'dyn_hist_ave.nc'
 
+c initialisation Anne
+      hadv_flg(:) = 0.
+      vadv_flg(:) = 0.
+      conv_flg(:) = 0.
+      pbl_flg(:)  = 0. 
+      tracnam(:)  = '        ' 
+      nprath = 1
+      nbtrac = 0
+      mmt_adj(:,:,:,:) = 1
+
+
 c--------------------------------------------------------------------------
 c   Iflag_phys controle l'appel a la physique :
@@ -188 +199 @@
       call init_phys_openmp
       call InitComgeomphy
+
+#ifdef INCA
+      call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
+      call init_inca_para(iim,jjm+1,klon2,phy_size,klon_para_nb)
+#endif
+
 c
 c
@@ -222 +239 @@
       endif
 
+#ifdef INCA
+      call init_inca_dim(klon,llm,iim,jjm,
+     $     rlonu,rlatu,rlonv,rlatv)
+#endif