Changeset 2617 for LMDZ5/trunk/libf/phylmd/fonte_neige_mod.F90

Timestamp:

Aug 31, 2016, 2:11:23 PM (8 years ago)

Author:

oboucher

Message:

Fixing a bug on the runofflic diagnostic.

File:

• LMDZ5/trunk/libf/phylmd/fonte_neige_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/fonte_neige_mod.F90

@@ -34 +34 @@
   REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: fqcalving_global
   !$OMP THREADPRIVATE(fqcalving_global)
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE  :: runofflic_global
+  !$OMP THREADPRIVATE(runofflic_global)
 
 CONTAINS
@@ -105 +107 @@
     ENDIF
     fqcalving_global(:,:) = 0.0
+
+    ALLOCATE(runofflic_global(klon))
+    IF (error /= 0) THEN
+       abort_message='Pb allocation runofflic_global'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    runofflic_global(:) = 0.0
 
 !****************************************************************************************
@@ -282 +291 @@
     ENDDO
 
+    IF (nisurf == is_lic) THEN
+    DO i = 1, knon
+       runofflic_global(knindex(i)) = run_off_lic(i)
+    ENDDO
+    ENDIF
+
   END SUBROUTINE fonte_neige
 !
@@ -343 +358 @@
        fqcalving_out(:) = fqcalving_out(:) + fqcalving_global(:,nisurf)*pctsrf(:,nisurf)
     ENDDO
-    run_off_lic_out(:)=run_off_lic(:)
+
+    run_off_lic_out(:)=runofflic_global(:)
 
   END SUBROUTINE fonte_neige_get_vars