- Timestamp:
- Jan 11, 2021, 11:24:08 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/phylmd/dyn1d/old_lmdz1d.F90
r3605 r3798 632 632 ! (phys_state_var_init is called again in physiq) 633 633 read_climoz = 0 634 ! 634 nsw=6 ! EV et LF: sinon, falb_dir et falb_dif ne peuvent etre alloues 635 636 635 637 call phys_state_var_init(read_climoz) 636 638 … … 728 730 729 731 !Al1 pour SST forced, appell?? depuis ocean_forced_noice 730 ts_cur = tsurf ! SST used in read_tsurf1d 732 ! EV tg instead of ts_cur 733 734 tg = tsurf ! SST used in read_tsurf1d 731 735 !===================================================================== 732 736 ! Initialisation de la physique : … … 791 795 792 796 fder=0. 797 print *, 'snsrf', snsrf 793 798 snsrf(1,:)=snowmass ! masse de neige des sous surface 794 799 qsurfsrf(1,:)=qsurf ! humidite de l'air des sous surface … … 841 846 end if 842 847 843 844 848 print*,'nat_surf,pctsrf(1,is_oce),pctsrf(1,is_ter)',nat_surf & 845 849 & ,pctsrf(1,is_oce),pctsrf(1,is_ter) … … 848 852 zpic = zpicinp 849 853 ftsol=tsurf 850 nsw=6 ! on met le nb de bandes SW=6, pour initialiser851 ! 6 albedo, mais on peut quand meme tourner avec852 ! moins. Seules les 2 ou 4 premiers seront lus853 854 falb_dir=albedo 854 855 falb_dif=albedo … … 913 914 v_ancien(1,:)=v(:) 914 915 915 u10m=0.916 v10m=0.917 ale_wake=0.918 ale_bl_stat=0.916 u10m=0. 917 v10m=0. 918 ale_wake=0. 919 ale_bl_stat=0. 919 920 920 921 !------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.