Changeset 1203 for LMDZ4

Timestamp:

Jul 7, 2009, 4:57:44 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Lors de la première création du fichier startphy.nc, on essaye d'écrire la
variable "trs" en la rapatriant avec traclmdz_to_restart(). Seulement dans
ce cas trs(:,:) n'a pas été alloué.
AJ

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/traclmdz_mod.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/traclmdz_mod.F90

@@ -321 +321 @@
     
     REAL,DIMENSION(klon,nbtr), INTENT(OUT) :: trs_out
+    INTEGER :: ierr
+    !AJ-beg - 
+    ALLOCATE( trs(klon,nbtr), stat=ierr )
+    IF (ierr == 0) THEN
+    ! no previous allocate [case create_etat0_limit.e]
+         trs_out(:,:) = 0.0
+    ELSE
+    ! already allocate by traclmdz_from_restart() [case gcm.e]
+         trs_out(:,:) = trs(:,:)
+    END IF
+    !cAJ-end -
+
     
     trs_out(:,:) = trs(:,:)