- 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/calcul_simulISCCP.h
r1279 r1299 1 1 c 2 c $ Header$2 c $Id$ 3 3 c 4 4 c on appelle le simulateur ISCCP toutes les 3h … … 18 18 sunlit(i)=1 19 19 IF(rmu0(i).EQ.0.) sunlit(i)=0 20 nbsunlit(1,i,n)= FLOAT(sunlit(i))20 nbsunlit(1,i,n)=REAL(sunlit(i)) 21 21 ENDDO 22 22 c … … 88 88 print*,'seed=0 i paprs aa seed_re', 89 89 . i,paprs(i,2),aa,seed_re(i,n) 90 STOP 90 abort_message = '' 91 CALL abort_gcm (modname,abort_message,1) 91 92 ELSE IF(seed(i,n).LT.0) THEN 92 93 print*,'seed < 0, i seed itap paprs',i, 93 94 . seed(i,n),itap,paprs(i,2) 94 STOP 95 abort_message = '' 96 CALL abort_gcm (modname,abort_message,1) 95 97 ENDIF 96 98 c
Note: See TracChangeset
for help on using the changeset viewer.