Changeset 1315 for LMDZ4/trunk/libf


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

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

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/gcm.F

    r1279 r1315  
    7575#include "iniprint.h"
    7676#include "tracstoke.h"
     77#include "indicesol.h"
    7778
    7879      INTEGER         longcles
    … …  
    210211      IF (config_inca /= 'none') THEN
    211212#ifdef INCA
    212       call init_const_lmdz(nbtr,anneeref,dayref,iphysiq,day_step,nday)
     213      call init_const_lmdz(nbtr,anneeref,dayref,iphysiq,day_step,nday,
     214     $        nbsrf, is_oce,is_sic,is_ter,is_lic)
    213215      call init_inca_para(iim,jjm+1,klon,1,klon_mpi_para_nb,0)
    214216#endif

  • LMDZ4/trunk/libf/dyn3dpar/gcm.F

    r1279 r1315  
    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.