/[lmdze]/trunk/phylmd/phyetat0.f90
ViewVC logotype

Diff of /trunk/phylmd/phyetat0.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 344 by guez, Tue Nov 12 15:18:14 2019 UTC revision 346 by guez, Mon Dec 9 20:15:29 2019 UTC
# Line 276  contains Line 276  contains
276      ENDIF      ENDIF
277    
278      ierr = NF90_INQ_VARID(ncid_startphy, "RNEBCON", varid)      ierr = NF90_INQ_VARID(ncid_startphy, "RNEBCON", varid)
279    
280      IF (ierr /= NF90_NOERR) THEN      IF (ierr /= NF90_NOERR) THEN
281         PRINT *, "phyetat0: Le champ RNEBCON est absent"         PRINT *, "phyetat0: le champ RNEBCON est absent."
282         PRINT *, "Depart legerement fausse. Mais je continue"         PRINT *, "D\'epart l\'eg\`erement fauss\'e. Mais je continue."
283         rnebcon = 0.         rnebcon = 0.
284      ELSE      ELSE
285         call nf95_get_var(ncid_startphy, varid, rnebcon(:, 1))         call nf95_get_var(ncid_startphy, varid, rnebcon(:, 1))
Legend:
Removed from v.344  
changed lines
  Added in v.346
  ViewVC Help
Powered by ViewVC 1.1.21