source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/config/ppsrc/dyn/fluxstokenc_p.f @ 224

Last change on this file since 224 was 224, checked in by ymipsl, 10 years ago
File size: 267 bytes
Line 
1!
2! $Id: fluxstokenc_p.F 1454 2010-11-18 12:01:24Z fairhead $
3!
4      SUBROUTINE fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis,
5     . time_step,itau )
6      write(lunout,*)
7     & 'fluxstokenc: Needs IOIPSL to function'
8! of #ifdef CPP_IOIPSL
9      RETURN
10      END
Note: See TracBrowser for help on using the repository browser.