Changeset 1456 for LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/phyredem.F

Timestamp:

Nov 22, 2010, 2:16:44 PM (14 years ago)

Author:

musat

Message:

phyetat0, phyredem: correction dimension verticale pbl_tke: pbl_tke(:,1:klev+1,:)
physiq: pour pouvoir fixer la longitude solaire avec la nouvelle orbite
JYG/IM

File:

• LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/phyredem.F (modified) (4 diffs)

LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/phyredem.F

@@ -11 +11 @@
       USE pbl_surface_mod,  ONLY : pbl_surface_final
       USE phys_state_var_mod
-      USE iostart
+      USE iostart  
       USE traclmdz_mod, ONLY : traclmdz_to_restart
       USE infotrac
       USE control_mod
-      USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
 
       IMPLICIT none
@@ -98 +97 @@
       CALL put_var("controle","Parametres de controle",tab_cntrl)
 c
-
       CALL put_field("longitude",
      .               "Longitudes de la grille physique",rlon)
@@ -289 +287 @@
             WRITE(str2,'(i2.2)') nsrf
             CALL put_field("TKE"//str2,"Energ. Cineti. Turb."//str2,
-     .                     pbl_tke(:,1:klev,nsrf))
+     .                     pbl_tke(:,1:klev+1,nsrf))
           ELSE
             PRINT*, "Trop de sous-mailles"
@@ -337 +335 @@
             CALL put_field("trs_"//tname(iiq),"",trs(:,it))
          END DO
-         IF (carbon_cycle_cpl) THEN
-            IF (.NOT. ALLOCATED(co2_send)) THEN
-               ! This is the case of create_etat0_limit, ce0l
-               ALLOCATE(co2_send(klon))
-               co2_send(:) = co2_ppm0
-            END IF
-            CALL put_field("co2_send","co2_ppm for coupling",co2_send)
-         END IF
       END IF