Changeset 541 for LMDZ4/trunk/libf/phylmd/phyetat0.F

Timestamp:

Jun 22, 2004, 1:45:36 PM (20 years ago)

Author:

lmdzadmin

Message:

Convergence avec la version d'Olivia Coindreau incluant:

• le offline
• les thermiques
• mellor & yamada dans la couche limite

LF

File:

• LMDZ4/trunk/libf/phylmd/phyetat0.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/phyetat0.F

@@ -665 +665 @@
            ENDDO
          ENDDO
-c          IF (nsrf.GT.99) THEN
-c            PRINT*, "Trop de sous-mailles"
-c            CALL abort
-c          ENDIF
-c          WRITE(str2,'(i2.2)') nsrf
-c          ierr = NF_INQ_VARID (nid, "ALBLW"//str2, nvarid)
-c           IF (ierr.NE.NF_NOERR) THEN
-c             PRINT*, "phyetat0: Le champ <ALBLW"//str2//"> est absent"
-c             CALL abort
-c          ENDIF
-c#ifdef NC_DOUBLE
-c           ierr = NF_GET_VAR_DOUBLE(nid, nvarid, alblw(1,nsrf))
-c#else
-c           ierr = NF_GET_VAR_REAL(nid, nvarid, alblw(1,nsrf))
-c#endif
-c          IF (ierr.NE.NF_NOERR) THEN
-c            PRINT*, "phyetat0: Lecture echouee pour <ALBLW"//str2//">"
-c            CALL abort
-c          ENDIF
-c          xmin = 1.0E+20
-c          xmax = -1.0E+20
-c          DO i = 1, klon
-c             xmin = MIN(alblw(i,nsrf),xmin)
-c             xmax = MAX(alblw(i,nsrf),xmax)
-c          ENDDO
-c          PRINT*,'Albedo du sol ALBLW**:', nsrf, xmin, xmax
-c        ENDDO
       ELSE
          PRINT*, 'phyetat0: Le champ <ALBLW> est present'