Ignore:
Timestamp:
Feb 22, 2010, 3:51:12 PM (15 years ago)
Author:
acozic
Message:

acozic: add argument in init_const_lmdz call for initialisation of INCA model

Location:
LMDZ4/branches/LMDZ4V5.0-dev/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F

    r1299 r1316  
    7676#include "iniprint.h"
    7777#include "tracstoke.h"
     78#include "indicesol.h"
    7879
    7980      INTEGER         longcles
    … …  
    211212      IF (config_inca /= 'none') THEN
    212213#ifdef INCA
    213       call init_const_lmdz(nbtr,anneeref,dayref,iphysiq,day_step,nday)
     214      call init_const_lmdz(nbtr,anneeref,dayref,iphysiq,day_step,nday,
     215     $        nbsrf, is_oce,is_sic,is_ter,is_lic)
    214216      call init_inca_para(iim,jjm+1,klon,1,klon_mpi_para_nb,0)
    215217#endif

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/gcm.F

    r1299 r1316  
    7373#include "iniprint.h"
    7474#include "tracstoke.h"
     75#include "indicesol.h"
    7576
    7677      INTEGER         longcles
    … …  
    239240         call init_const_lmdz(
    240241     $        nbtr,anneeref,dayref,
    241      $        iphysiq,day_step,nday)
     242     $        iphysiq,day_step,nday,
     243     $        nbsrf, is_oce,is_sic,
     244     $        is_ter,is_lic)
    242245
    243246         call init_inca_para(
Note: See TracChangeset for help on using the changeset viewer.