Changeset 465 for branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90

Timestamp:

01/26/24 10:24:00 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: start cleaning module3D

File:

• branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90

@@ -131 +131 @@
 subroutine grisli_init
 
-  USE module3D_phy, only: itemp,icouple,isynchro,imargin,icompteur,iglen,timecg,marine,num_sealevel, &
+  USE module3D_phy, only: itemp,icouple,isynchro,icompteur,iglen,marine,num_sealevel, &
                           num_ts_ritz,num_ic_vo,num_ic_by,num_ic_dm,num_ic_dc,num_ic_df, &
                           s,h,b,bsoc,flot,mk,mk0,uxbar,uybar,hwater,time,timemax,boost,ndebug,ndebug_max
@@ -165 +165 @@
   !               4     idem 3 mais loi de def. Duval          niveau L4
   ICOUPLE=4
-  !     switch margin IMARGIN=0 fixed, IMARGIN=1 moving
-  IMARGIN=1
-
-  TIMECG=TBEGIN
+
   nt=-1   ! utilisee dans initialisation flottab
   !     sortie profile tous les dtprofile