Changeset 3316 for trunk/LMDZ.COMMON


Ignore:
Timestamp:
Apr 25, 2024, 3:58:31 PM (7 months ago)
Author:
jbclement
Message:

Mars PCM:
Reversion of r3305 and r3307.
JBC

Location:
trunk/LMDZ.COMMON/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

    r3305 r3316  
    467467     ! Physics:
    468468#ifdef CPP_PHYS
    469      CALL iniphysiq('startfi.nc',iim,jjm,llm,                       &
    470                     (jjm-1)*iim+2,comm_lmdz,                        &
    471                     daysec,day_ini,dtphys/nsplit_phys,              &
    472                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
    473                     iflag_phys)
     469     CALL iniphysiq(iim,jjm,llm,                        &
     470                    (jjm-1)*iim+2,comm_lmdz,            &
     471                    daysec,day_ini,dtphys/nsplit_phys,  &
     472                    rlatu,rlatv,rlonu,rlonv,aire,cu,cv, &
     473                    rad,g,r,cpp,iflag_phys)
    474474#endif
    475475  ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))

  • trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

    r3305 r3316  
    487487! Physics
    488488#ifdef CPP_PHYS
    489          CALL iniphysiq('startfi.nc',iim,jjm,llm,
     489         CALL iniphysiq(iim,jjm,llm,
    490490     &                distrib_phys(mpi_rank),comm_lmdz,
    491491     &                daysec,day_ini,dtphys/nsplit_phys,
    492      &                rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,
    493      &                iflag_phys)
     492     &                rlatu,rlatv,rlonu,rlonv,aire,cu,cv,
     493     &                rad,g,r,cpp,iflag_phys)
    494494#endif
    495495!         call_iniphys=.false.
Note: See TracChangeset for help on using the changeset viewer.