Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/V3_test/libf/dyn3dpar/gcm.F

    r709 r726  
    1414      USE mod_hallo
    1515      USE Bands
    16 #ifdef INCA
    17       USE inca_dim
    18 #endif
    1916      IMPLICIT NONE
    2017
     
    6461#include "iniprint.h"
    6562#include "tracstoke.h"
    66 
     63#include "advtrac.h"
    6764
    6865      INTEGER         longcles
     
    157154      dynhist_file = 'dyn_hist'
    158155      dynhistave_file = 'dyn_hist_ave'
     156
     157
     158c 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
    159168
    160169c--------------------------------------------------------------------------
     
    221230c$OMP END PARALLEL
    222231#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)
    224234#endif
    225235
     
    250260      endif
    251261
     262#ifdef INCA
     263      call init_inca_dim(klon,llm,iim,jjm,
     264     $     rlonu,rlatu,rlonv,rlatv)
     265#endif
    252266
    253267
Note: See TracChangeset for help on using the changeset viewer.