source: trunk/mesoscale/LMDZ.MARS/libf_gcm/bibio/cvmgt.F @ 57

Last change on this file since 57 was 57, checked in by aslmd, 14 years ago

mineur LMD_MM_MARS: ajout du GCM ancienne physique, systeme maintenant complet sur SVN (ne manque que la base de donnees d'etats initiaux)
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.