Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/inifis.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/inifis.F
r987 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE inifis(ngrid,nlayer, … … 45 45 cym#include "dimphy.h" 46 46 47 INCLUDE 'iniprint.h' 47 48 REAL prad,pg,pr,pcpp,punjours 48 49 … … 52 53 53 54 REAL ptimestep 55 CHARACTER (LEN=20) :: modname='inifis' 56 CHARACTER (LEN=80) :: abort_message 57 54 58 55 59 IF (nlayer.NE.klev) THEN … … 58 62 PRINT*,'nlayer = ',nlayer 59 63 PRINT*,'klev = ',klev 60 STOP 64 abort_message = '' 65 CALL abort_gcm (modname,abort_message,1) 61 66 ENDIF 62 67 … … 66 71 PRINT*,'ngrid = ',ngrid 67 72 PRINT*,'klon = ',klon 68 STOP 73 abort_message = '' 74 CALL abort_gcm (modname,abort_message,1) 69 75 ENDIF 70 76 71 77 RETURN 72 9999 STOP'Cette version demande les fichier rnatur.dat et surf.def' 78 9999 continue 79 abort_message = 'Cette version demande les fichier rnatur.dat 80 & et surf.def' 81 CALL abort_gcm (modname,abort_message,1) 82 73 83 END
Note: See TracChangeset
for help on using the changeset viewer.