Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/fluxstokenc_p.F
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/dyn3dpar/fluxstokenc_p.F
r1146 r1279 1 ! 2 ! $Id$ 3 ! 1 4 SUBROUTINE fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis, 2 5 . time_step,itau ) 6 #ifdef CPP_EARTH 7 ! This routine is designed to work for Earth and with ioipsl 3 8 4 9 USE IOIPSL … … 21 26 #include "tracstoke.h" 22 27 #include "temps.h" 28 #include "iniprint.h" 23 29 24 30 REAL time_step,t_wrt, t_ops … … 236 242 ENDIF ! if iadvtr.EQ.istdyn 237 243 244 #else 245 write(lunout,*) 246 & 'fluxstokenc: Needs Earth physics (and ioipsl) to function' 247 #endif 248 ! of #ifdef CPP_EARTH 238 249 RETURN 239 250 END
Note: See TracChangeset
for help on using the changeset viewer.