Changeset 1298 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phyetat0.F

Timestamp:

Jan 15, 2010, 11:35:59 AM (14 years ago)

Author:

Laurent Fairhead

Message:

• sauvegarde de variables des thermiques dans le restart physique
• modification de iostart pour pouvoir sauvegarder des champs en klevp1
• nettoyage sur physiq.F pour gfortran

• variables from the new version of the thermics are saved to the restart file
• iostart is modified to allow the writing of fields dimensionned in klevp1
• some clean-up work on physiq.F for the gfortran compilation

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phyetat0.F (modified) (1 diff)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phyetat0.F

@@ -999 +999 @@
       PRINT*,'(ecart-type) wake_fip:', xmin, xmax
 c
+c  thermiques
+c
+
+      CALL get_field("FM_THERM",fm_therm,found)
+      IF (.NOT. found) THEN
+         PRINT*, "phyetat0: Le champ <fm_therm> est absent"
+         PRINT*, "Depart legerement fausse. Mais je continue"
+         fm_therm=0.
+      ENDIF
+      xmin = 1.0E+20
+      xmax = -1.0E+20
+      xmin = MINval(fm_therm)
+      xmax = MAXval(fm_therm)
+      PRINT*,'(ecart-type) fm_therm:', xmin, xmax
+
+      CALL get_field("ENTR_THERM",entr_therm,found)
+      IF (.NOT. found) THEN
+         PRINT*, "phyetat0: Le champ <entr_therm> est absent"
+         PRINT*, "Depart legerement fausse. Mais je continue"
+         entr_therm=0.
+      ENDIF
+      xmin = 1.0E+20
+      xmax = -1.0E+20
+      xmin = MINval(entr_therm)
+      xmax = MAXval(entr_therm)
+      PRINT*,'(ecart-type) entr_therm:', xmin, xmax
+
+      CALL get_field("DETR_THERM",detr_therm,found)
+      IF (.NOT. found) THEN
+         PRINT*, "phyetat0: Le champ <detr_therm> est absent"
+         PRINT*, "Depart legerement fausse. Mais je continue"
+         detr_therm=0.
+      ENDIF
+      xmin = 1.0E+20
+      xmax = -1.0E+20
+      xmin = MINval(detr_therm)
+      xmax = MAXval(detr_therm)
+      PRINT*,'(ecart-type) detr_therm:', xmin, xmax
+
+
+
+c
 c Read and send field trs to traclmdz
 c