Ignore:
Timestamp:
Jul 19, 2023, 5:45:49 PM (18 months ago)
Author:
jbclement
Message:

Mars PCM:
Small fixes to compile and run 1D model related to the second to last commit.
JBC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/evolution/init_phys_1d_mod.F90

    r3000 r3001  
    262262        q(2,:,:)=q(1,:,:)
    263263
     264#ifdef CPP_XIOS
    264265      call init_physics_distribution(regular_lonlat,4,&
    265266                                    1,1,1,nlayer,COMM_LMDZ)
     267#else
     268      call init_physics_distribution(regular_lonlat,4,&
     269                                    1,1,1,nlayer,1)
     270#endif
    266271
    267272      call open_startphy("startfi_evol.nc")
Note: See TracChangeset for help on using the changeset viewer.