Changeset 1403 for LMDZ4/trunk/libf/phylmd/iniphysiq.F
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/iniphysiq.F
r879 r1403 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 c … … 61 61 62 62 REAL ptimestep 63 CHARACTER (LEN=20) :: modname='iniphysiq' 64 CHARACTER (LEN=80) :: abort_message 63 65 64 66 IF (nlayer.NE.klev) THEN … … 67 69 PRINT*,'nlayer = ',nlayer 68 70 PRINT*,'klev = ',klev 69 STOP 71 abort_message = '' 72 CALL abort_gcm (modname,abort_message,1) 70 73 ENDIF 71 74 … … 75 78 PRINT*,'ngrid = ',ngrid 76 79 PRINT*,'klon = ',klon_glo 77 STOP 80 abort_message = '' 81 CALL abort_gcm (modname,abort_message,1) 78 82 ENDIF 79 83 c$OMP PARALLEL PRIVATE(ibegin,iend) … … 96 100 97 101 RETURN 98 9999 STOP'Cette version demande les fichier rnatur.dat et surf.def' 102 9999 CONTINUE 103 abort_message ='Cette version demande les fichier rnatur.dat 104 & et surf.def' 105 CALL abort_gcm (modname,abort_message,1) 106 99 107 END
Note: See TracChangeset
for help on using the changeset viewer.