Changeset 498 for LMDZ.3.3/branches/rel-LF/libf
- Timestamp:
- Mar 23, 2004, 5:40:20 PM (21 years ago)
- Location:
- LMDZ.3.3/branches/rel-LF/libf/phylmd
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/clesphys.h
r486 r498 15 15 cIM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH 16 16 LOGICAL ok_kzmin 17 cIM lev_histhf : niveau sorties 6h 18 cIM lev_histday : niveau sorties journalieres 19 cIM lev_histmth : niveau sorties mensuelles 20 INTEGER lev_histhf, lev_histday, lev_histmth 17 21 18 22 COMMON/clesphys/cycle_diurne, soil_model, new_oliq, … … 21 25 , , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt 22 26 , , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter 23 , , ok_kzmin 27 , , ok_kzmin, lev_histhf, lev_histday, lev_histmth -
LMDZ.3.3/branches/rel-LF/libf/phylmd/clesphys.inc
r486 r498 11 11 REAL :: ksta, ksta_ter 12 12 LOGICAL :: ok_kzmin 13 INTEGER :: lev_histhf, lev_histday, lev_histmth 13 14 14 15 COMMON/clesphys/cycle_diurne, soil_model, new_oliq, & … … 17 18 & , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt & 18 19 & , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter & 19 & , ok_kzmin 20 & , ok_kzmin, lev_histhf, lev_histday, lev_histmth -
LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90
r486 r498 423 423 424 424 425 ! IM425 ! 426 426 ! 427 427 !Config Key = cdmmax … … 470 470 call getin('ok_kzmin',ok_kzmin) 471 471 472 !261103 472 ! 473 !Config Key = lev_histhf 474 !Config Desc = 475 !Config Def = 0 476 !Config Help = 477 ! 478 lev_histhf = 0 479 call getin('lev_histhf',lev_histhf) 480 481 ! 482 !Config Key = lev_histday 483 !Config Desc = 484 !Config Def = 1 485 !Config Help = 486 ! 487 lev_histday = 1 488 call getin('lev_histday',lev_histday) 489 490 ! 491 !Config Key = lev_histmth 492 !Config Desc = 493 !Config Def = 2 494 !Config Help = 495 ! 496 lev_histmth = 2 497 call getin('lev_histmth',lev_histmth) 498 499 ! 473 500 ! 474 501 !Config Key = … … 492 519 write(numout,*)' Sortie instantanee = ', ok_instan 493 520 write(numout,*)' Sortie bilan d''energie, if_ebil =', if_ebil 494 !IM constantes physiques BEG495 521 write(numout,*)' Excentricite = ',R_ecc 496 522 write(numout,*)' Equinoxe = ',R_peri … … 503 529 write(numout,*)' CFC11_ppt=',CFC11_ppt,' RCFC11 = ',RCFC11 504 530 write(numout,*)' CFC12_ppt=',CFC12_ppt,' RCFC12 = ',RCFC12 505 !IM constantes physiques END506 531 write(numout,*)' epmax = ', epmax 507 532 write(numout,*)' ok_adj_ema = ', ok_adj_ema … … 529 554 write(numout,*)' ksta_ter = ',ksta_ter 530 555 write(numout,*)' ok_kzmin = ',ok_kzmin 556 write(numout,*)' lev_histhf = ',lev_histhf 557 write(numout,*)' lev_histday = ',lev_histday 558 write(numout,*)' lev_histmth = ',lev_histmth 531 559 532 560 return
Note: See TracChangeset
for help on using the changeset viewer.