Changeset 1707 for LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F
- Timestamp:
- Jan 11, 2013, 10:19:19 AM (11 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1670-1692,1694-1703,1705-1706
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F
r1665 r1707 14 14 #endif 15 15 USE infotrac, ONLY : type_trac 16 use assert_m, only: assert 17 16 18 IMPLICIT NONE 17 19 c----------------------------------------------------------------------- … … 93 95 CALL getin('lunout', lunout) 94 96 IF (lunout /= 5 .and. lunout /= 6) THEN 95 OPEN(lunout,FILE='lmdz.out') 97 OPEN(UNIT=lunout,FILE='lmdz.out',ACTION='write', 98 & STATUS='unknown',FORM='formatted') 96 99 ENDIF 97 100 … … 173 176 174 177 !Config Key = nsplit_phys 175 !Config Desc = nombre de pas par jour176 !Config Def = 1177 !Config Help = nombre de pas par jour (multiple de iperiod) (178 !Config ici pour dt = 1 min )179 178 nsplit_phys = 1 180 179 CALL getin('nsplit_phys',nsplit_phys) … … 625 624 CALL getin('ok_dyn_ave',ok_dyn_ave) 626 625 627 628 626 write(lunout,*)' #########################################' 629 627 write(lunout,*)' Configuration des parametres du gcm: ' … … 635 633 write(lunout,*)' day_step = ', day_step 636 634 write(lunout,*)' iperiod = ', iperiod 635 write(lunout,*)' nsplit_phys = ', nsplit_phys 637 636 write(lunout,*)' iconser = ', iconser 638 637 write(lunout,*)' iecri = ', iecri … … 805 804 !Config Desc = sortie des transports zonaux dans la dynamique 806 805 !Config Def = n 807 !Config Help = 806 !Config Help = Permet de mettre en route le calcul des transports 808 807 !Config 809 ok_dynzon = .FALSE.810 808 ok_dynzon = .FALSE. 809 CALL getin('ok_dynzon',ok_dynzon) 811 810 812 811 !Config Key = ok_dyn_ins … … 838 837 write(lunout,*)'STOP !!!' 839 838 write(lunout,*)'use_filtre_fft n est pas implemente dans dyn3d' 840 STOP 839 STOP 1 841 840 ENDIF 842 841 … … 848 847 ok_strato=.FALSE. 849 848 CALL getin('ok_strato',ok_strato) 849 850 vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39) 851 CALL getin('vert_prof_dissip', vert_prof_dissip) 852 call assert(vert_prof_dissip == 0 .or. vert_prof_dissip == 1, 853 $ "bad value for vert_prof_dissip") 850 854 851 855 !Config Key = ok_gradsfile
Note: See TracChangeset
for help on using the changeset viewer.