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

Timestamp:

02/07/24 16:31:29 (5 months ago)

Author:

aquiquet

Message:

Cleaning branch: ablation_bord with explicit arguments

File:

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

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

@@ -132 +132 @@
 
   USE module3D_phy, only: itemp,icouple,isynchro,icompteur,iglen, &
+                          ice,bm,bmelt,ablbord,ablbord_dtt,dt,    &
                           s,h,b,bsoc,flot,mk,mk0,uxbar,uybar,hwater,time,timemax,ndebug,ndebug_max
   use runparam, only: nt,tbegin,dtprofile,dtcpt,dirnameout,runname,itracebug
@@ -238 +239 @@
            call flottab()
            call calving
-           call ablation_bord
+           call ablation_bord(ice,bm,bmelt,ablbord,ablbord_dtt,dt)
            call flottab
            call Neffect()