Context Navigation

comdissip.h @ 1154

Last change on this file since 1154 was 1140, checked in by Ehouarn Millour, 16 years ago

Premiere vaque de modifications pour l'unification des dynamiques (planetes-Terre) et un peu de netoyage ...

modified 'makegcm' and 'makegcm_fcm' to remove 'CPP_PHYS' key and add 'CPP_EARTH' preprocessing key instead
updated 'diagedyn.F' (in dyn3d and dyn3dpar) to use 'CPP_EARTH' key
added 'ioipsl_getincom.F90' and 'ioipsl_stringop.F90' to 'dyn3d' and 'dyn3dpar' for future possibility of running without IOIPSL library
modified conf_gcm.F ( in d'yn3d' and 'dyn3dpar') to read in flag 'planet_type' (default=='earth') (flag added in 'control.h')
modified 'gcm.F' (in 'dyn3d' and 'dyn3dpar') so that flags so that 'read_start' and 'iflag_phys' (known from conf_gcm.F) are used
added flag 'output_grads_dyn' (read by conf_gcm.F, stored in 'control.h') to write grads outputs from 'leapfrog.F' and 'leapfrog_p.F'
removed 'comdiss.h' from 'dyn3d' and 'dyn3dpar' (it is not used)
removed variable 'lstardis' from 'comdissip.h' (it is also in

'comdissnew.h'), in dyn3d as well as in dyn3dpar

adapted 'dyn3d/iniacademic.F' to not use 'inicons0.F' but 'iniconst.F'
updated 'dyn3d/etat0_netcdf.F' to not use 'inicons0' but 'iniconst' (added prerequisite pa=50000 instruction) and added #ifdef CPP_EARTH keys
removed 'inicons0.F' and 'disvert0.F' (not used any more)

File size: 385 bytes

Rev	Line
[524]	1	!
	2	! $Header$
	3	!
[1140]	4	!-----------------------------------------------------------------------
	5	! INCLUDE comdissip.h
[524]	6
[1140]	7	COMMON/comdissip/ &
	8	& niterdis,coefdis,tetavel,tetatemp,gamdissip
[524]	9
	10
	11	INTEGER niterdis
	12
	13	REAL tetavel,tetatemp,coefdis,gamdissip
	14
[1140]	15	!-----------------------------------------------------------------------

Note: See TracBrowser for help on using the repository browser.