Changeset 949 for LMDZ4/trunk/libf/dyn3dpar/gcm.F

Timestamp:

Apr 16, 2008, 2:14:00 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Petites re-ecritures pour eviter la floppee de message d'infos lors de
la compilation sur NEC
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/gcm.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3dpar/gcm.F

@@ -77 +77 @@
 
       REAL zdtvr
-      INTEGER nbetatmoy, nbetatdem,nbetat
+c      INTEGER nbetatmoy, nbetatdem,nbetat
+      INTEGER nbetatmoy, nbetatdem
 
 c   variables dynamiques
@@ -84 +85 @@
       REAL q(ip1jmp1,llm,nqmx)               ! champs advectes
       REAL ps(ip1jmp1)                       ! pression  au sol
-      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
-      REAL pks(ip1jmp1)                      ! exner au  sol
-      REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
-      REAL pkf(ip1jmp1,llm)                  ! exner filt.au milieu des couches
+c      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+c      REAL pks(ip1jmp1)                      ! exner au  sol
+c      REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
+c      REAL pkf(ip1jmp1,llm)                  ! exner filt.au milieu des couches
       REAL masse(ip1jmp1,llm)                ! masse d'air
       REAL phis(ip1jmp1)                     ! geopotentiel au sol
-      REAL phi(ip1jmp1,llm)                  ! geopotentiel
-      REAL w(ip1jmp1,llm)                    ! vitesse verticale
+c      REAL phi(ip1jmp1,llm)                  ! geopotentiel
+c      REAL w(ip1jmp1,llm)                    ! vitesse verticale
 
 c variables dynamiques intermediaire pour le transport
@@ -101 +102 @@
 
       LOGICAL lafin
-      INTEGER ij,iq,l,i,j
+c      INTEGER ij,iq,l,i,j
+      INTEGER i,j
 
 
       real time_step, t_wrt, t_ops
 
-      REAL rdayvrai,rdaym_ini,rday_ecri
-      LOGICAL first
+c      REAL rdayvrai,rdaym_ini,rday_ecri
+c      LOGICAL first
 
       LOGICAL call_iniphys
       data call_iniphys/.true./
 
-      REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
+c      REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
 c+jld variables test conservation energie
-      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
+c      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
 C     Tendance de la temp. potentiel d (theta)/ d t due a la 
 C     tansformation d'energie cinetique en energie thermique
 C     cree par la dissipation
-      REAL dhecdt(ip1jmp1,llm)
-      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
-      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
-      CHARACTER*15 ztit
+c      REAL dhecdt(ip1jmp1,llm)
+c      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+c      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+c      CHARACTER (len=15) :: ztit
 c-jld 
 
 
-      character*80 dynhist_file, dynhistave_file
-      character*20 modname
-      character*80 abort_message
+      character (len=80) :: dynhist_file, dynhistave_file
+      character (len=20) ::modname
+      character (len=80) ::abort_message
 
 C Calendrier