|
Last change
on this file since 3470 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)
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
385 bytes
|
| Line | |
|---|
| 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| 4 | !----------------------------------------------------------------------- |
|---|
| 5 | ! INCLUDE comdissip.h |
|---|
| 6 | |
|---|
| 7 | COMMON/comdissip/ & |
|---|
| 8 | & niterdis,coefdis,tetavel,tetatemp,gamdissip |
|---|
| 9 | |
|---|
| 10 | |
|---|
| 11 | INTEGER niterdis |
|---|
| 12 | |
|---|
| 13 | REAL tetavel,tetatemp,coefdis,gamdissip |
|---|
| 14 | |
|---|
| 15 | !----------------------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
