Changeset 1220 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/grid_atob.F
- Timestamp:
- Aug 5, 2009, 4:38:34 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/grid_atob.F
r774 r1220 700 700 PARAMETER (imtmp=360,jmtmp=180) 701 701 REAL xtmp(imtmp), ytmp(jmtmp) 702 REAL *8cham1tmp(imtmp,jmtmp), cham2tmp(imtmp,jmtmp)702 REAL(KIND=8) cham1tmp(imtmp,jmtmp), cham2tmp(imtmp,jmtmp) 703 703 REAL zzzz 704 704 c … … 859 859 number(ii,jj) = number(ii,jj) + 1.0 860 860 rugs(ii,jj) = rugs(ii,jj) 861 . + LOG(MAX(0.001 ,cham2tmp(i,j)))861 . + LOG(MAX(0.001_8,cham2tmp(i,j))) 862 862 ENDIF 863 863 ENDDO … … 892 892 i_proche = ij_proche - (j_proche-1)*imtmp 893 893 PRINT*, "solution:", ij_proche, i_proche, j_proche 894 rugs(i,j) = LOG(MAX(0.001 ,cham2tmp(i_proche,j_proche)))894 rugs(i,j) = LOG(MAX(0.001_8,cham2tmp(i_proche,j_proche))) 895 895 ENDIF 896 896 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.