Changeset 1531


Ignore:
Timestamp:
Jun 3, 2011, 3:06:54 PM (13 years ago)
Author:
jghattas
Message:

Updated interface to INCA in ce0l.

  1. Cozic
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dpar/ce0l.F90

    r1511 r1531  
    8080  IF (config_inca /= 'none') THEN
    8181#ifdef INCA
    82     CALL init_const_lmdz(nbtr,anneeref,dayref,iphysiq,day_step,nday)
    83     CALL init_inca_para(iim,jjm+1,klon,1,klon_mpi_para_nb,0)
    84     WRITE(lunout,*)'nbtr =' , nbtr
     82      CALL init_const_lmdz( &
     83         nbtr,anneeref,dayref,&
     84         iphysiq,day_step,nday,&
     85         nbsrf, is_oce,is_sic,&
     86         is_ter,is_lic)
     87     
    8588#endif
    8689  END IF
Note: See TracChangeset for help on using the changeset viewer.