Changeset 136 for LMDZ.3.3


Ignore:
Timestamp:
Sep 14, 2000, 3:55:19 PM (24 years ago)
Author:
lmdzadmin
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_limit.F

    r99 r136  
    454454c
    455455      WRITE(*,*) 'phy_nat'
    456       WRITE(*,'(72f4.1)') phy_nat0(1:klon)
     456c     WRITE(*,'(72f4.1)') phy_nat0(1:klon)
    457457c
    458458      DO k = 1, 360
     
    466466            WHERE(phy_ice(1:klon, k) .LT. 0.) phy_ice(1 : klon, k) = 0.
    467467            WRITE(*,*) 'phy_ice : ', k
    468             WRITE(*,'(72f4.1)') phy_ice(1 : klon, k)
     468c           WRITE(*,'(72f4.1)') phy_ice(1 : klon, k)
    469469c
    470470            IF (fracterre ) THEN
Note: See TracChangeset for help on using the changeset viewer.