source: trunk/LMDZ.PLUTO.old/libf/phypluto/cvmgt.F

Last change on this file was 3175, checked in by emillour, 11 months ago

Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
File size: 192 bytes
Line 
1      FUNCTION cvmgt(x1,x2,l)
2      IMPLICIT NONE
3
4      REAL x1,x2,cvmgt
5      LOGICAL l
6
7      IF(l) then
8        cvmgt=x1
9      ELSE
10        cvmgt=x2
11      ENDIF
12
13      RETURN
14      END
15C
Note: See TracBrowser for help on using the repository browser.