Changeset 541 for LMDZ4/trunk/libf/dyn3d/wrgrads.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/dyn3d/wrgrads.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/wrgrads.F

@@ -29 +29 @@
       writectl=.false.
 
-c     print*,if,iid(if),jid(if),ifd(if),jfd(if)
+      print*,if,iid(if),jid(if),ifd(if),jfd(if)
       iii=iid(if)
       iji=jid(if)
@@ -38 +38 @@
       lm=lmd(if)
 
-c      print*,'im,jm,lm,name,firsttime(if)'
-c      print*,im,jm,lm,name,firsttime(if)
+      print*,'im,jm,lm,name,firsttime(if)'
+      print*,im,jm,lm,name,firsttime(if)
 
       if(firsttime(if)) then
@@ -81 +81 @@
       endif
 
-c     print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
-c     print*,ivar(if),nvar(if),var(ivar(if),if),writectl
+      print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
+      print*,ivar(if),nvar(if),var(ivar(if),if),writectl
       do l=1,nl
          irec(if)=irec(if)+1