Changeset 1699 for LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F
- Timestamp:
- Dec 20, 2012, 2:28:23 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F
r1673 r1699 6 6 SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 ) 7 7 c 8 USE control_mod 8 9 #ifdef CPP_IOIPSL 9 10 use IOIPSL … … 17 18 use mod_hallo, ONLY : use_mpi_alloc 18 19 use parallel, ONLY : omp_chunk 19 USE control_mod20 20 USE infotrac, ONLY : type_trac 21 use assert_m, only: assert 22 21 23 IMPLICIT NONE 22 24 c----------------------------------------------------------------------- … … 44 46 #include "serre.h" 45 47 #include "comdissnew.h" 46 !#include "clesphys.h"47 #include "iniprint.h"48 48 #include "temps.h" 49 49 #include "comconst.h" 50 50 51 51 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique 52 ! #include "clesphys.h" 53 #include "iniprint.h" 52 54 c 53 55 c … … 106 108 OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write', 107 109 & STATUS='unknown',FORM='formatted') 108 109 110 ENDIF 110 111 … … 186 187 187 188 !Config Key = nsplit_phys 188 !Config Desc = nombre d'iteration de la physique189 !Config Def = 240190 !Config Help = nombre d'itration de la physique191 !192 189 nsplit_phys = 1 193 190 CALL getin('nsplit_phys',nsplit_phys) … … 326 323 CALL getin('tau_top_bound',tau_top_bound) 327 324 328 !329 325 !Config Key = coefdis 330 326 !Config Desc = coefficient pour gamdissip … … 609 605 type_trac = 'lmdz' 610 606 CALL getin('type_trac',type_trac) 611 612 607 613 608 !Config Key = config_inca … … 831 826 832 827 !Config Key = ok_dynzon 833 !Config Desc = calcul et sortie des transports828 !Config Desc = sortie des transports zonaux dans la dynamique 834 829 !Config Def = n 835 830 !Config Help = Permet de mettre en route le calcul des transports … … 867 862 write(lunout,*)"Le zoom en longitude est incompatible", 868 863 & " avec l'utilisation du filtre FFT ", 869 & "---> filtre FFT désactivé"864 & "---> FFT filter not active" 870 865 use_filtre_fft=.FALSE. 871 866 ENDIF … … 900 895 ok_strato=.FALSE. 901 896 CALL getin('ok_strato',ok_strato) 897 898 vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39) 899 CALL getin('vert_prof_dissip', vert_prof_dissip) 900 call assert(vert_prof_dissip == 0 .or. vert_prof_dissip == 1, 901 $ "bad value for vert_prof_dissip") 902 902 903 903 !Config Key = ok_gradsfile … … 970 970 write(lunout,*)' type_trac = ', type_trac 971 971 write(lunout,*)' config_inca = ', config_inca 972 write(lunout,*)' ok_dynzon = ', ok_dynzon 972 write(lunout,*)' ok_dynzon = ', ok_dynzon 973 973 write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 974 974 write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave
Note: See TracChangeset
for help on using the changeset viewer.