Changeset 996 for LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90

Timestamp:

Sep 9, 2008, 3:22:23 PM (16 years ago)

Author:

lsce

Message:

• Modifications liées au calcul des nouveau sous-fractions
• Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
• Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

File:

• LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90

@@ -15 +15 @@
   USE intersurf     ! module d'ORCHIDEE
   USE cpl_mod,      ONLY : cpl_send_land_fields
-  USE surface_data, ONLY : ocean, ok_veget
+  USE surface_data, ONLY : type_ocean
   USE comgeomphy,   ONLY : cuphy, cvphy
   USE mod_grid_phy_lmdz
@@ -199 +199 @@
 
     IF (check) WRITE(lunout,*)'Entree ', modname
-    IF (check) WRITE(lunout,*)'ok_veget = ',ok_veget
   
 ! Initialisation
@@ -416 +415 @@
 !* Send to coupler
 !
-    IF (ocean=='couple') THEN
+    IF (type_ocean=='couple') THEN
        CALL cpl_send_land_fields(itime, knon, knindex, &
             riverflow, coastalflow)