Changeset 1203


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/traclmdz_mod.F90

    r1191 r1203  
    321321   
    322322    REAL,DIMENSION(klon,nbtr), INTENT(OUT) :: trs_out
     323    INTEGER :: ierr
     324    !AJ-beg -
     325    ALLOCATE( trs(klon,nbtr), stat=ierr )
     326    IF (ierr == 0) THEN
     327    ! no previous allocate [case create_etat0_limit.e]
     328         trs_out(:,:) = 0.0
     329    ELSE
     330    ! already allocate by traclmdz_from_restart() [case gcm.e]
     331         trs_out(:,:) = trs(:,:)
     332    END IF
     333    !cAJ-end -
     334
    323335   
    324336    trs_out(:,:) = trs(:,:)
Note: See TracChangeset for help on using the changeset viewer.