Changeset 3940 for LMDZ6/trunk/libf/phylmdiso/fonte_neige_mod.F90

Timestamp:

Jun 15, 2021, 1:18:14 PM (3 years ago)

Author:

crisi

Message:

replace files by symbloic liks from phylmdiso towards phylmd.
Many files at once

File:

• LMDZ6/trunk/libf/phylmdiso/fonte_neige_mod.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmdiso/fonte_neige_mod.F90

@@ -28 +28 @@
   REAL, PRIVATE                               :: tau_calv  
   !$OMP THREADPRIVATE(tau_calv)
-  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: ffonte_global
+  REAL, ALLOCATABLE, DIMENSION(:,:)           :: ffonte_global
   !$OMP THREADPRIVATE(ffonte_global)
-  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: fqfonte_global
+  REAL, ALLOCATABLE, DIMENSION(:,:)           :: fqfonte_global
   !$OMP THREADPRIVATE(fqfonte_global)
-  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: fqcalving_global
+  REAL, ALLOCATABLE, DIMENSION(:,:)           :: fqcalving_global
   !$OMP THREADPRIVATE(fqcalving_global)
-  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE  :: runofflic_global
+  REAL, ALLOCATABLE, DIMENSION(:)             :: runofflic_global
   !$OMP THREADPRIVATE(runofflic_global)
 #ifdef ISO
@@ -60 +60 @@
 ! The variable run_off_lic_0 is initialized to the field read from
 ! restart file. The other variables are initialized to zero.
-
 !
 !****************************************************************************************
@@ -84 +83 @@
     run_off_lic_0(:) = restart_runoff(:) 
 
-
 !****************************************************************************************
 ! Allocate other variables and initilize to zero
@@ -130 +128 @@
     ENDIF
     runofflic_global(:) = 0.0
-
-
 
 !****************************************************************************************
@@ -348 +344 @@
 
     snow_evap = 0.
-    
+  
 #ifdef ISOVERIF
         write(*,*) 'klon,snow_evap(413)=',klon,snow_evap(413)
@@ -406 +402 @@
        ! Y'a-t-il fonte de neige?
        neige_fond = (snow(i)>epsfra .OR. nisurf==is_sic .OR. nisurf==is_lic) .AND. tsurf_new(i)>=RTT
-       IF (neige_fond) THEN   
+       IF (neige_fond) THEN
           fq_fonte     = MIN( MAX((tsurf_new(i)-RTT )/chasno,0.0),snow(i))
           ffonte(i)    = fq_fonte * RLMLT/dtime
@@ -412 +408 @@
           snow(i)      = MAX(0., snow(i) - fq_fonte)
           bil_eau_s(i) = bil_eau_s(i) + fq_fonte 
-          tsurf_new(i) = tsurf_new(i) - fq_fonte * chasno   
+          tsurf_new(i) = tsurf_new(i) - fq_fonte * chasno  
 #ifdef ISO
         fq_fonte_diag(i)=fq_fonte