- Timestamp:
- 06/20/17 14:51:53 (7 years ago)
- Location:
- trunk/SOURCES
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/Makefile.grisli.inc
r112 r116 235 235 bmelt-ant-regions_mod.o \ 236 236 bmelt-ant-regions-oce_mod.o \ 237 fake-routines-ant_mod.o module_choix-antar40-0.4.o \ 237 fake-routines-ant_mod.o \ 238 dragging_prescr_beta_mod.o beta_iter_vitbil_mod.o \ 239 module_choix-antar40-0.4.o \ 238 240 track_ant40_mod.o 239 241 … … 689 691 $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 690 692 693 Ant-40_iterbeta : $(Dim_Ant40) $(mod_dim_communs) \ 694 $(toy_recul) \ 695 $(mod_communs) \ 696 $(mod_clim_tof) \ 697 $(mod_no_tracers) \ 698 $(mod_ell) $(Liste_Ant40) \ 699 $(diagnoshelf) \ 700 $(Liste_Netcdf) \ 701 $(routines_communes) steps_time_loop_avec_iterbeta.o \ 702 $(routine_elliptiques) \ 703 $(Liste_BLAS) 704 705 $(LK) -o ../bin/Ant-40_iterbeta \ 706 $(Dim_Ant40) $(mod_dim_communs) \ 707 $(toy_recul) \ 708 $(mod_communs) \ 709 $(mod_clim_tof) \ 710 $(mod_no_tracers) \ 711 $(mod_ell) $(Liste_Ant40) \ 712 $(diagnoshelf) \ 713 $(Liste_Netcdf) \ 714 $(routines_communes) steps_time_loop_avec_iterbeta.o \ 715 $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 716 691 717 Snowball : $(Dim_Snowball) $(mod_dim_communs) \ 692 718 $(toy_recul) \ -
trunk/SOURCES/dragging_param_beta_mod.f90
r92 r116 152 152 153 153 ! calcul de neff (pression effective sur noeuds majeurs) 154 !$OMP DO155 154 if (sum(neffmx(:,:)).le.0.) neffmx(:,:) =1.e8 156 155 if (sum(neffmy(:,:)).le.0.) neffmy(:,:) =1.e8 157 156 157 !$OMP DO 158 158 do j=1,ny-1 159 159 do i=1,nx-1 -
trunk/SOURCES/steps_time_loop_avec_iterbeta.f90
r50 r116 56 56 if (itracebug.eq.1) call tracebug(' Dans spinup_icethick : appelle icethick') 57 57 58 call icethick3 ()58 call icethick3 59 59 60 60 call calving … … 140 140 !------------------------------------------------------------------ 141 141 142 if ((NT.eq.1) & ! .or.(NT.eq.2)143 .or.(mod(abs(dble(TIME)),dble(DTPROFILE)).lt.dble(dtmin)) &144 .or.(abs(TIME-TEND).lt.dtmin)) then142 !if ((NT.eq.1) & ! .or.(NT.eq.2) 143 ! .or.(mod(abs(dble(TIME)),dble(DTPROFILE)).lt.dble(dtmin)) & 144 ! .or.(abs(TIME-TEND).lt.dtmin)) then 145 145 146 146 ! call sortieprofile() 147 147 148 endif148 !endif 149 149 150 150 ! sorties netcdf Hassine (aout 2010) (2D and 3D) … … 164 164 165 165 ! end of outputs 166 if (isynchro.eq.1) then 167 diff_H = 0. 168 Bm_dtt(:,:) = 0. 169 bmelt_dtt(:,:) = 0. 170 calv_dtt(:,:)=0. 171 ablbord_dtt(:,:)=0. 172 diff_H_2D(:,:)=0. 173 endif 166 174 !=================================================================== 167 175 … … 233 241 !------------------------------------------- 234 242 call masque() 235 call flottab() 243 236 244 if (iter_beta.gt.0) call init_dragging 237 245 … … 345 353 if (itracebug.eq.1) call tracebug(' Dans spinup_3_bed') 346 354 347 if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1 ) then355 if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1.and.(mod(abs(TIME),50.).lt.dtmin)) then 348 356 call bedrock() ! bedrock adjustment 349 357 endif … … 444 452 do m=1,iter_visco 445 453 call diagnoshelf 446 call 447 call strain_rate ()454 call mix_SIA_L1 455 call strain_rate 448 456 end do 449 457 450 458 ! iterations pour affiner beta en fonction des vitesses de bilan 451 459 452 if ((time.ge.time_iter).and.(time.le.time_iter+ 15.)) then !iterations seulment pendant 15 ans460 if ((time.ge.time_iter).and.(time.le.time_iter+20.)) then !iterations seulment pendant 15 ans 453 461 do m=1,nb_iter_vitbil 454 462 call beta_iter_vitbil 455 463 call diagnoshelf 456 call 457 call strain_rate ()464 call mix_SIA_L1 465 call strain_rate 458 466 end do 459 467 end if
Note: See TracChangeset
for help on using the changeset viewer.