Changeset 3474 for trunk/LMDZ.PLUTO/libf
- Timestamp:
- Oct 24, 2024, 1:10:47 PM (2 months ago)
- Location:
- trunk/LMDZ.PLUTO/libf/phypluto
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.PLUTO/libf/phypluto/conduction.F90
r3455 r3474 49 49 real,parameter :: skk=1.12 50 50 51 logical firstcall 52 save firstcall 53 data firstcall /.true./ 51 logical, save :: firstcall=.true. 54 52 !----------------------------------------------------------------------- 55 53 ! calcul des coefficients alpha et lambda -
trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90
r3455 r3474 1465 1465 call abort_physic(rname, 'if callmolvis is set, callconduct must be true', 1) 1466 1466 endif 1467 if (glaflow.and..not.fast) then 1468 call abort_physic(rname, 'if glaflow is set, fast must be true', 1) 1469 endif 1467 1470 if (paleo.and..not.fast) then 1468 1471 call abort_physic(rname, 'if paleo is set, fast must be true', 1)
Note: See TracChangeset
for help on using the changeset viewer.