source: trunk/mars/libf/phymars/cvmgp.F @ 117

Last change on this file since 117 was 38, checked in by emillour, 14 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM
File size: 186 bytes
RevLine 
[38]1      FUNCTION cvmgp(x1,x2,x3)
2      IMPLICIT NONE
3
4      REAL x1,x2,x3,cvmgp
5
6      IF(x3.ge.0) then
7        cvmgp=x1
8      ELSE
9        cvmgp=x2
10      ENDIF
11
12      RETURN
13      END
14C
Note: See TracBrowser for help on using the repository browser.