Changeset 2600 for LMDZ5/trunk/libf/dyn3d_common/advxp.F
- Timestamp:
- Jul 23, 2016, 7:45:38 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d_common/advxp.F
r2597 r2600 13 13 C parametres principaux du modele 14 14 C 15 #include "dimensions.h" 16 #include "paramet.h" 17 #include "comvert.h" 15 include "dimensions.h" 16 include "paramet.h" 18 17 19 18 INTEGER ntra … … 102 101 c IF (S0(i,j,l,ntra) .lt. 0. ) THEN 103 102 c PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra) 104 c 103 c print*, 'SSX(',i,j,l,')=',SSX(i,j,l,ntra) 105 104 c print*, 'SY(',i,j,l,')=',SY(i,j,l,ntra) 106 105 c print*, 'SZ(',i,j,l,')=',SZ(i,j,l,ntra) … … 119 118 DO j = 1, jjp1 120 119 DO i = 1, iim 121 120 sqi = sqi + S0(i,j,l,ntra) 122 121 END DO 123 122 END DO … … 611 610 c DO 9999 j = 1, jjp1 612 611 c DO 9999 i = 1, iip1 613 c 612 c IF (S0(i,j,l,ntra).lt.0..and.LIMIT) THEN 614 613 c PRINT*, '-------------------' 615 c 614 c PRINT*, 'En fin de ADVXP' 616 615 c PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra) 617 c 616 c print*, 'SSX(',i,j,l,')=',SSX(i,j,l,ntra) 618 617 c print*, 'SY(',i,j,l,')=',SY(i,j,l,ntra) 619 c 618 c print*, 'SZ(',i,j,l,')=',SZ(i,j,l,ntra) 620 619 c WRITE (*,*) 'On arrete !! - pbl en fin de ADVXP' 621 620 c STOP … … 628 627 SM(iip1,j,l) = SM(1,j,l) 629 628 S0(iip1,j,l,ntra) = S0(1,j,l,ntra) 630 631 632 629 SSX(iip1,j,l,ntra) = SSX(1,j,l,ntra) 630 SY(iip1,j,l,ntra) = SY(1,j,l,ntra) 631 SZ(iip1,j,l,ntra) = SZ(1,j,l,ntra) 633 632 END DO 634 633 END DO
Note: See TracChangeset
for help on using the changeset viewer.