Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/conf_gcm.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/conf_gcm.F90
r4482 r4727 19 19 USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, & 20 20 iflag_top_bound, mode_top_bound, tau_top_bound, & 21 ngroup 21 ngroup, maxlatfilter 22 22 USE logic_mod, ONLY: fxyhypb, iflag_phys, ok_etat0, ok_gradsfile, & 23 23 ok_guide, ok_limit, ok_strato, purmats, read_start, & … … 25 25 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, & 26 26 alphax,alphay,taux,tauy 27 USE temps_mod, ONLY: calend, year_len 27 USE temps_mod, ONLY: calend, year_len, offline_time 28 28 29 29 IMPLICIT NONE … … 341 341 CALL getin('dissip_zref',dissip_zref ) 342 342 343 344 !maxlatfilter 345 maxlatfilter = -1.0 346 CALL getin('maxlatfilter',maxlatfilter) 347 if (maxlatfilter > 90) & 348 call abort_gcm("conf_gcm", 'maxlatfilter should be <=90', 1) 349 350 343 351 ! ngroup 344 352 ngroup=3 … … 620 628 621 629 !Config Key = offline 622 !Config Desc = Nouvelle eau liquide630 !Config Desc = ecriture des flux de masse 623 631 !Config Def = n 624 !Config Help = Permet de mettre en route la 625 !Config nouvelle parametrisation de l'eau liquide ! 632 !Config Help = Permet de sortir les flux de masse sur la grille plev 626 633 offline = .FALSE. 627 634 CALL getin('offline',offline) 635 636 !Config Key = offline_time 637 !Config Desc = Choix des frequences de stockage pour le offline 638 !Config Def = 8 639 !Config Help = offline_time=12 ! stockage toutes les 2h=1jour/12 640 !Config Help = offline_time=8 ! stockage toutes les 3h=1jour/8 641 offline_time = 8 642 CALL getin('offline_time',offline_time) 643 628 644 IF (offline .AND. adjust) THEN 629 645 WRITE(lunout,*) & … … 714 730 write(lunout,*)' tauyy = ', tauyy 715 731 write(lunout,*)' offline = ', offline 732 write(lunout,*)' offline_time = ', offline_time 716 733 write(lunout,*)' type_trac = ', type_trac 717 734 write(lunout,*)' ok_dynzon = ', ok_dynzon
Note: See TracChangeset
for help on using the changeset viewer.