Changeset 905 for trunk/LMDZ.GENERIC/libf

Timestamp:

Mar 18, 2013, 11:58:34 AM (12 years ago)

Author:

emillour

Message:

Generic GCM:

• removed the "-static" ifort compilation option (problematic on Gnome cluster) and added some additional debug options
• fixed bug in newstart about initialization of albedo and thermal inertia.

EM

File:

• trunk/LMDZ.GENERIC/libf/dyn3d/newstart.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/dyn3d/newstart.F

@@ -328 +328 @@
      .        cloudfrac,totalfrac,hice)
 
-        ! copy albedo and soil thermal inertia
+        ! copy albedo and soil thermal inertia on (local) physics grid
         do i=1,ngridmx
           albfi(i) = albedodat(i)
@@ -335 +335 @@
           enddo
         ! build a surfithfi(:) using 1st layer of ithfi(:), which might
-        ! be neede later on if reinitializing soil thermal inertia
+        ! be needed later on if reinitializing soil thermal inertia
           surfithfi(i)=ithfi(i,1)
         enddo
-
+        ! also copy albedo and soil thermal inertia on (local) dynamics grid
+        ! so that options below can manipulate either (but must then ensure
+        ! to correctly recast things on physics grid)
+        call gr_fi_dyn(1,ngridmx,iip1,jjp1,albfi,alb)
+        call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith)
+        call gr_fi_dyn(1,ngridmx,iip1,jjp1,surfithfi,surfith)
       
       endif