Ignore:
Timestamp:
Oct 20, 2008, 5:57:12 PM (16 years ago)
Author:
lsce
Message:
  • Copure des lignes trop longues

JG

Location:
LMDZ4/trunk/libf/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3dpar/create_etat0_limit.F

    r1000 r1017  
    4949      IF (config_inca /= 'none') THEN
    5050#ifdef INCA
    51          call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
     51         call init_const_lmdz(
     52     $        nbtrac,anneeref,dayref,
     53     $        iphysiq,day_step,nday)
    5254#endif
    5355         print *, 'nbtrac =' , nbtrac
  • LMDZ4/trunk/libf/dyn3dpar/gcm.F

    r1000 r1017  
    234234      IF (config_inca /= 'none') THEN
    235235#ifdef INCA
    236          call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
    237          call init_inca_para(iim,jjm+1,klon_glo,mpi_size,klon_mpi_para_nb,
    238      $        COMM_LMDZ)
     236         call init_const_lmdz(
     237     $        nbtrac,anneeref,dayref,
     238     $        iphysiq,day_step,nday)
     239
     240         call init_inca_para(
     241     $        iim,jjm+1,klon_glo,mpi_size,
     242     $        klon_mpi_para_nb,COMM_LMDZ)
    239243#endif
    240244      END IF
Note: See TracChangeset for help on using the changeset viewer.