Changeset 1319 for LMDZ4/trunk/libf/dyn3d/conf_gcm.F
- Timestamp:
- Feb 23, 2010, 10:29:54 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/conf_gcm.F
r1279 r1319 769 769 CALL getin('ok_gradsfile',ok_gradsfile) 770 770 771 !Config Key = ok_limit 772 !Config Desc = creation des fichiers limit dans create_etat0_limit 773 !Config Def = y 774 !Config Help = production du fichier limit.nc requise 775 776 ok_limit = .TRUE. 777 CALL getin('ok_limit',ok_limit) 778 779 !Config Key = ok_etat0 780 !Config Desc = creation des fichiers etat0 dans create_etat0_limit 781 !Config Def = y 782 !Config Help = production des fichiers start.nc, startphy.nc requise 783 784 ok_etat0 = .TRUE. 785 CALL getin('ok_etat0',ok_etat0) 786 771 787 write(lunout,*)' #########################################' 772 write(lunout,*)' Configuration des parametres du gcm: ' 788 write(lunout,*)' Configuration des parametres de create_etat0' 789 & //'_limit: ' 773 790 write(lunout,*)' planet_type = ', planet_type 774 791 write(lunout,*)' calend = ', calend … … 809 826 write(lunout,*)' ok_strato = ', ok_strato 810 827 write(lunout,*)' ok_gradsfile = ', ok_gradsfile 828 write(lunout,*)' ok_limit = ', ok_limit 829 write(lunout,*)' ok_etat0 = ', ok_etat0 811 830 c 812 831 RETURN
Note: See TracChangeset
for help on using the changeset viewer.