source: trunk/LMDZ.PLUTO.old/libf/bibio/cvmgp.F @ 3436

Last change on this file since 3436 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: 186 bytes
Line 
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.