Changeset 3486 for trunk/LMDZ.COMMON/libf/evolution/dyn_ss_ice_m.f90

Timestamp:

Oct 29, 2024, 2:53:13 PM (4 weeks ago)

Author:

evos

Message:

we added the option to use NS dynamical subsurface ice in the model to more realisticly calculate the amount of ice in the subsurface and therfore the subsurface thermal inertia

File:

• trunk/LMDZ.COMMON/libf/evolution/dyn_ss_ice_m.f90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/evolution/dyn_ss_ice_m.f90

@@ -138 +138 @@
  ! enddo
 
-  print *,'History begins here'
+  !print *,'History begins here'
  porefill(1:nz,1:NP) =  porefill_in(1:nz,1:NP)
   zdepthT(1:NP) = ssi_depth_in
@@ -150 +150 @@
    !  print *,'T_after=  ',Tb(:)
  !    print *,'z=  ',z(:)
-     print *,'Zt=  ',ZdepthT
-      ssi_depth=ZdepthT(1)
+ !    print *,'Zt=  ',ZdepthT
+     ssi_depth=ZdepthT(1)
     ! if (abs(mod(icetime/100.,1.d0))<1.e-3) then ! output every 1000 years
     !    do k=1,NP
@@ -163 +163 @@
   !      enddo
   !   endif
-     print *,icetime
+!     print *,icetime
      if (icetime>=tlast) exit
   enddo