Changeset 2073 for LMDZ5/branches/testing/libf/phylmd/phyredem.F90

Timestamp:

Jun 25, 2014, 5:43:19 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2054:2070 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phyredem.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/phyredem.F90

@@ -15 +15 @@
   USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
   USE indice_sol_mod
+  USE surface_data
+  USE ocean_slab_mod, ONLY : tslab
 
   IMPLICIT none
@@ -33 +35 @@
 
   REAL tsoil(klon, nsoilmx, nbsrf)
-  REAL tslab(klon), seaice(klon)
   REAL qsurf(klon, nbsrf)
   REAL qsol(klon)
@@ -322 +323 @@
 
   CALL put_field("DETR_THERM", "DETR_THERM", detr_therm)
+
+  CALL put_field("ALE_BL", "ALE_BL", Ale_bl)
+
+  CALL put_field("ALE_BL_TRIG", "ALE_BL_TRIG", Ale_bl_trig)
+
+  CALL put_field("ALP_BL", "ALP_BL", Alp_bl)
 
   ! trs from traclmdz_mod
@@ -340 +347 @@
   END IF
 
+  ! Restart variables for Slab ocean
+  IF (type_ocean == 'slab') THEN
+      CALL put_field("tslab", "Slab ocean temperature", tslab)
+  END IF
+
   if (ok_gwd_rando) then
      call put_field("du_gwd_rando", &