Changeset 726 for LMDZ4/branches/V3_test/libf/dyn3dpar/gcm.F
- Timestamp:
- Nov 6, 2006, 4:51:16 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/V3_test/libf/dyn3dpar/gcm.F
r709 r726 14 14 USE mod_hallo 15 15 USE Bands 16 #ifdef INCA17 USE inca_dim18 #endif19 16 IMPLICIT NONE 20 17 … … 64 61 #include "iniprint.h" 65 62 #include "tracstoke.h" 66 63 #include "advtrac.h" 67 64 68 65 INTEGER longcles … … 157 154 dynhist_file = 'dyn_hist' 158 155 dynhistave_file = 'dyn_hist_ave' 156 157 158 c initialisation Anne 159 hadv_flg(:) = 0. 160 vadv_flg(:) = 0. 161 conv_flg(:) = 0. 162 pbl_flg(:) = 0. 163 tracnam(:) = ' ' 164 nprath = 1 165 nbtrac = 0 166 mmt_adj(:,:,:,:) = 1 167 159 168 160 169 c-------------------------------------------------------------------------- … … 221 230 c$OMP END PARALLEL 222 231 #ifdef INCA 223 call init_inca_dim 232 call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday) 233 call init_inca_para(iim,jjm+1,klon2,phy_size,klon_para_nb) 224 234 #endif 225 235 … … 250 260 endif 251 261 262 #ifdef INCA 263 call init_inca_dim(klon,llm,iim,jjm, 264 $ rlonu,rlatu,rlonv,rlatv) 265 #endif 252 266 253 267
Note: See TracChangeset
for help on using the changeset viewer.