Changeset 102 for trunk/SOURCES/Temperature-routines

Timestamp:

05/05/17 16:44:01 (7 years ago)

Author:

dumas

Message:

Update closed water cycle | H = 1m on sea suppressed

Location:

trunk/SOURCES/Temperature-routines

Files:

• icetemp_mod.f90 (modified) (1 diff)
• temp_col.f90 (modified) (3 diffs)

trunk/SOURCES/Temperature-routines/icetemp_mod.f90

@@ -189 +189 @@
           Call temp_col(Nz,Nzm,Nn,T3d_new(i,j,:),Ct(i,j,:),&
                flot(i,j),H(i,j),Tbmer(i,j),Ibase(i,j),T(i,j,:),Tpmp(i,j,:),Aa,Bb,Cc,Rr,Hh,Ncond,Dee,Cm,&
-               Dzm,Phid(i,j),Ghf(i,j),Ifail1,Tbdot(i,j),DTT,Dou,Ts(i,j),Bmelt(i,j))
+               Dzm,Phid(i,j),Ghf(i,j),Ifail1,Tbdot(i,j),DTT,Dou,Ts(i,j))
 
           ! Test Permettant D'Ecrire Les Variables Quand Il Y A Une Erreur

trunk/SOURCES/Temperature-routines/temp_col.f90

@@ -15 +15 @@
 
 Subroutine  Temp_col(Nz,Nzm,Nn,Newtempcol,Ctij,Flotij,Hij,Tbmerij,Ibase,Tij,Tpmpij,Aa,Bb,Cc,Rr,Hh,Ncond,Dee,Cm, &
-                                Dzm,Phidij,Ghfij,Ifail1,Tbdotij,DTT,Dou,Tsij,Bmeltij)
+                                Dzm,Phidij,Ghfij,Ifail1,Tbdotij,DTT,Dou,Tsij)
 
 !  Use Icetemp_declar
@@ -47 +47 @@
   Real, intent(inout) :: Dou
   real, intent(in) :: Tsij        !< surface ice temperature  'o'
-  real, intent(out) :: Bmeltij    !< fonte basale
   
   
@@ -220 +219 @@
 
      Tbdotij=(Newtempcol(Nz)-Tij(Nz))/Dtt
-     Bmeltij=0.
      Ibase=5
      Phidij=0.