Changeset 1403 for LMDZ4/trunk/libf/phylmd/initrrnpb.F90
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/initrrnpb.F90
r1279 r1403 1 1 ! 2 ! $Id 2 ! $Id$ 3 3 ! 4 4 SUBROUTINE initrrnpb(ftsol,pctsrf,masktr,fshtr,hsoltr,tautr,vdeptr,scavtr) … … 39 39 REAL :: s 40 40 41 CHARACTER (LEN=20) :: modname='initrrnpb' 42 CHARACTER (LEN=80) :: abort_message 43 44 41 45 WRITE(*,*)'PASSAGE initrrnpb ...' 42 46 ! 43 47 ! Radon it = 1 44 48 !---------------- 45 IF ( nbtr .LE. 0 ) STOP '**PHYTRAC:initrrnpb:** nbtr < 0; verifier RN dans traceur.def' 49 IF ( nbtr .LE. 0 ) then 50 abort_message = '**PHYTRAC:initrrnpb:** nbtr < 0; verifier RN dans traceur.def' 51 CALL abort_gcm (modname,abort_message,1) 52 ENDIF 46 53 it = 1 47 54 s = 1.E4 ! Source: atome par m2 … … 68 75 ! 210Pb it = 2 69 76 !---------------- 70 IF ( nbtr .LE. 1 ) STOP '**PHYTRAC**:initrrnpb:** nbtr <= 1; verifier PB dans traceur.def' 77 IF ( nbtr .LE. 1 ) THEN 78 abort_message='**PHYTRAC**:initrrnpb:** nbtr <= 1; verifier PB dans traceur.def' 79 CALL abort_gcm (modname,abort_message,1) 80 ENDIF 71 81 it = 2 72 82 s = 0. ! Pas de source
Note: See TracChangeset
for help on using the changeset viewer.