Changeset 2214 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jan 10, 2020, 10:35:56 AM (5 years ago)
Author:
emillour
Message:

Mars GCM:
Fix a minor bug in the 1D model when initializing the time of day at the
begining of the run.
EM

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

    r2199 r2214  
    729729
    730730      call physdem0("startfi.nc",longitude,latitude,nsoilmx,ngrid,llm,
    731      &              nq,dtphys,float(day0),time,cell_area,
     731     &              nq,dtphys,float(day0),0.,cell_area,
    732732     &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,
    733733     &              hmons,summit,base)

  • trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

    r2212 r2214  
    505505           write(*,*) "PHYSIQ: ERROR: bad synchronization between ",
    506506     &                "physics and dynamics"
    507            write(*,*) "dynamics day: ",pday
    508            write(*,*) "physics day: ",day_ini
    509            stop
     507           write(*,*) "dynamics day [pday]: ",pday
     508           write(*,*) "physics day [day_ini]: ",day_ini
     509           call abort_physic("physiq","dynamics day /= physics day",1)
    510510         endif
    511511
    … …  
    12781278            write(*,*) 'Turbulent-resolving mode !'
    12791279            write(*,*) 'Please set calldifv to T in callphys.def'
    1280             STOP
     1280            call abort_physic("physiq","turbulent-resolving mode",1)
    12811281         ENDIF
    12821282      ENDIF ! of IF (calldifv)
Note: See TracChangeset for help on using the changeset viewer.