Changeset 1563 for LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F
- Timestamp:
- Aug 29, 2011, 3:32:52 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F
r1502 r1563 17 17 use parallel, ONLY : omp_chunk 18 18 USE control_mod 19 USE infotrac, ONLY : type_trac 19 20 IMPLICIT NONE 20 21 c----------------------------------------------------------------------- … … 588 589 END IF 589 590 591 !Config Key = type_trac 592 !Config Desc = Choix de couplage avec model de chimie INCA ou REPROBUS 593 !Config Def = lmdz 594 !Config Help = 595 !Config 'lmdz' = pas de couplage, pur LMDZ 596 !Config 'inca' = model de chime INCA 597 !Config 'repr' = model de chime REPROBUS 598 type_trac = 'lmdz' 599 CALL getin('type_trac',type_trac) 600 601 590 602 !Config Key = config_inca 591 603 !Config Desc = Choix de configuration de INCA … … 659 671 write(lunout,*)' tauyy = ', tauyy 660 672 write(lunout,*)' offline = ', offline 673 write(lunout,*)' type_trac = ', type_trac 661 674 write(lunout,*)' config_inca = ', config_inca 662 675 write(lunout,*)' ok_dynzon = ', ok_dynzon … … 785 798 & 'only the file phystoke.nc will still be created ' 786 799 END IF 800 801 !Config Key = type_trac 802 !Config Desc = Choix de couplage avec model de chimie INCA ou REPROBUS 803 !Config Def = lmdz 804 !Config Help = 805 !Config 'lmdz' = pas de couplage, pur LMDZ 806 !Config 'inca' = model de chime INCA 807 !Config 'repr' = model de chime REPROBUS 808 type_trac = 'lmdz' 809 CALL getin('type_trac',type_trac) 787 810 788 811 !Config Key = config_inca … … 933 956 write(lunout,*)' tauy = ', tauy 934 957 write(lunout,*)' offline = ', offline 958 write(lunout,*)' type_trac = ', type_trac 935 959 write(lunout,*)' config_inca = ', config_inca 936 960 write(lunout,*)' ok_dynzon = ', ok_dynzon
Note: See TracChangeset
for help on using the changeset viewer.