Changeset 3474 for trunk


Ignore:
Timestamp:
Oct 24, 2024, 1:10:47 PM (4 weeks ago)
Author:
afalco
Message:

Pluto PCM: imcompatibility message;
Initialize firstcall properly.
AF

Location:
trunk/LMDZ.PLUTO/libf/phypluto
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/conduction.F90

    r3455 r3474  
    4949      real,parameter :: skk=1.12
    5050
    51       logical firstcall
    52       save firstcall
    53       data firstcall /.true./
     51      logical, save :: firstcall=.true.
    5452!-----------------------------------------------------------------------
    5553!   calcul des coefficients alpha et lambda

  • trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

    r3455 r3474  
    14651465         call abort_physic(rname, 'if callmolvis is set, callconduct must be true', 1)
    14661466     endif
     1467     if (glaflow.and..not.fast) then
     1468         call abort_physic(rname, 'if glaflow is set, fast must be true', 1)
     1469     endif
    14671470     if (paleo.and..not.fast) then
    14681471         call abort_physic(rname, 'if paleo is set, fast must be true', 1)
Note: See TracChangeset for help on using the changeset viewer.