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

Last change on this file was 3184, checked in by afalco, 2 years ago

Pluto PCM:
Added LMDZ.PLUTO, a copy of the generic model,
cleaned from some unnecessary modules (water, ...)
AF
File size: 192 bytes
RevLine 
[3184]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.