Changeset 1657 for LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F
- Timestamp:
- Oct 2, 2012, 5:57:45 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F
r1632 r1657 1 1 ! 2 ! $Id: conf_gcm.F 1 299 2010-01-20 14:27:21Z fairhead$2 ! $Id: conf_gcm.F 1357 2010-04-14 14:03:19Z emillour $ 3 3 ! 4 4 c … … 174 174 CALL getin('day_step',day_step) 175 175 176 !Config Key = nsplit_phys 177 !Config Desc = nombre d'iteration de la physique 178 !Config Def = 240 179 !Config Help = nombre d'itration de la physique 180 ! 181 nsplit_phys = 1 182 CALL getin('nsplit_phys',nsplit_phys) 183 176 184 !Config Key = iperiod 177 185 !Config Desc = periode pour le pas Matsuno … … 594 602 CALL getin('ok_dynzon',ok_dynzon) 595 603 604 !Config Key = ok_dyn_ins 605 !Config Desc = sorties instantanees dans la dynamique 606 !Config Def = n 607 !Config Help = 608 !Config 609 ok_dyn_ins = .FALSE. 610 CALL getin('ok_dyn_ins',ok_dyn_ins) 611 612 !Config Key = ok_dyn_ave 613 !Config Desc = sorties moyennes dans la dynamique 614 !Config Def = n 615 !Config Help = 616 !Config 617 ok_dyn_ave = .FALSE. 618 CALL getin('ok_dyn_ave',ok_dyn_ave) 596 619 597 620 write(lunout,*)' #########################################' … … 604 627 write(lunout,*)' day_step = ', day_step 605 628 write(lunout,*)' iperiod = ', iperiod 629 write(lunout,*)' nsplit_phys = ', nsplit_phys 606 630 write(lunout,*)' iconser = ', iconser 607 631 write(lunout,*)' iecri = ', iecri … … 633 657 write(lunout,*)' config_inca = ', config_inca 634 658 write(lunout,*)' ok_dynzon = ', ok_dynzon 659 write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 660 write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 635 661 636 662 RETURN … … 765 791 ok_dynzon = .FALSE. 766 792 CALL getin('ok_dynzon',ok_dynzon) 793 794 !Config Key = ok_dyn_ins 795 !Config Desc = sorties instantanees dans la dynamique 796 !Config Def = n 797 !Config Help = 798 !Config 799 ok_dyn_ins = .FALSE. 800 CALL getin('ok_dyn_ins',ok_dyn_ins) 801 802 !Config Key = ok_dyn_ave 803 !Config Desc = sorties moyennes dans la dynamique 804 !Config Def = n 805 !Config Help = 806 !Config 807 ok_dyn_ave = .FALSE. 808 CALL getin('ok_dyn_ave',ok_dyn_ave) 767 809 768 810 !Config Key = use_filtre_fft … … 859 901 write(lunout,*)' config_inca = ', config_inca 860 902 write(lunout,*)' ok_dynzon = ', ok_dynzon 903 write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 904 write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 861 905 write(lunout,*)' use_filtre_fft = ', use_filtre_fft 862 906 write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc
Note: See TracChangeset
for help on using the changeset viewer.