Changeset 2237 for LMDZ5/trunk/libf/phylmd/phyredem.F90

Timestamp:

Mar 20, 2015, 7:53:17 AM (9 years ago)

Author:

fhourdin

Message:

Prise en compte des nouveaux alebedo dans les fichiers de redémarrage.
Retour à 1+1=2

Taking into account new albedos in restart files. 1+1=2

File:

• LMDZ5/trunk/libf/phylmd/phyredem.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phyredem.F90

@@ -51 +51 @@
   REAL tab_cntrl(length)
 
-  INTEGER isoil, nsrf
+  INTEGER isoil, nsrf,isw
   CHARACTER (len=7) :: str7
   CHARACTER (len=2) :: str2
@@ -142 +142 @@
   ENDDO
 
+! ================== Albedo =======================================
+  print*,'PHYREDEM NOUVEAU'
+  DO nsrf = 1, nbsrf
+     DO isw=1, nsw
+        IF (isw.LE.99 .AND. nsrf.LE.99) THEN
+           WRITE(str7, '(i2.2, "srf", i2.2)') isw, nsrf
+  print*,'PHYREDEM ',"A_dir_SW"//str7
+           CALL put_field("A_dir_SW"//str7, "Albedo direct du sol bande "//str7, &
+                falb_dir(:, isw, nsrf))
+           CALL put_field("A_dif_SW"//str7, "Albedo difus du sol bande "//str7, &
+                falb_dif(:, isw, nsrf))
+        ELSE
+           PRINT*, "Trop de couches"
+           call abort_gcm("phyredem", "", 1)
+        ENDIF
+     ENDDO
+  ENDDO
+
+! ================== Tsoil =======================================
   DO nsrf = 1, nbsrf
      DO isoil=1, nsoilmx