Changeset 269

Timestamp:

08/27/14 15:28:20 (10 years ago)

Author:

milmd

Message:

In physic, initialisation of surface temperature with the bottom layer of 3d temperature. Better for restarting physic but waiting for another cleaner solution.

Location:

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd

Files:

• phyetat0_academic.F90 (modified) (1 diff)
• physiq.F90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/phyetat0_academic.F90

@@ -239 +239 @@
 if (.not.found) then
   write(*,*) "phyetat0: Failed loading <tsurf>"
-  tsurf(:)=175.0
+!mi initialising tsurf with pt(:,1) 
+!tsurf(:)=175.0
 else
   write(*,*) "phyetat0: Surface temperature <tsurf> range:", &

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/physiq.F90

@@ -574 +574 @@
                rnat,pctsrf_sic,tslab, tsea_ice,sea_ice)
 
+!mi initialising tsurf with pt
+         tsurf(:)=pt(:,1)
+
          if (pday.ne.day_ini) then
            write(*,*) "ERROR in physiq.F90:"