Ignore:
Timestamp:
Apr 17, 2015, 10:30:37 PM (10 years ago)
Author:
millour
Message:

Further cleanup and removal of references to iniprint.h.
Also added bench testcase 48x36x19.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/dyn3d/gcm.F90

    r3816 r3817  
    2222  USE infotrac
    2323  USE control_mod
     24  USE mod_const_mpi, ONLY: COMM_LMDZ
    2425
    2526#ifdef INCA
    … …  
    183184  ! dynamique -> physique pour l'initialisation
    184185#ifdef CPP_PHYS
    185   CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
     186  CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/),COMM_LMDZ)
    186187  !      call InitComgeomphy ! now done in iniphysiq
    187188#endif
Note: See TracChangeset for help on using the changeset viewer.