Changeset 359 for branches/iLoveclim/SOURCES/New-remplimat/diagno-L2_mod.f90

Timestamp:

06/10/22 17:11:04 (2 years ago)

Author:

aquiquet

Message:

Trunk merged to branch at revision 357

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/New-remplimat/diagno-L2_mod.f90 (modified) (4 diffs)

branches/iLoveclim/SOURCES/New-remplimat/diagno-L2_mod.f90

@@ -42 +42 @@
 logical :: stopvisco,viscolin
 logical :: test_visc
+
+integer :: itour_nolin
 
 contains    
@@ -101 +103 @@
   if (itracebug.eq.1)  call tracebug(' Entree dans diagnoshelf')
 
+  do itour_nolin=1,niter_nolin
 
   itour_pvi=itour_pvi+1       ! boucle sur la viscosite (pour l'instant pas actif)
@@ -116 +119 @@
 
   call dragging                    ! doit etre appele avant imx_imy
-
+  call mstream_dragging ! afq -- mise a jour des masques
 
 
@@ -340 +343 @@
   !write(6,*) 'time',time, uxbar(92,152),gzmx(92,152),ilemx(92,152),flotmx(92,152), flgzmx(92,152)
 
+  end do ! afq -- sur itour_nolin
+
   return
 end subroutine diagnoshelf