Changeset 1517 for LMDZ5/trunk/libf/phylmd/calltherm.F90

Timestamp:

May 10, 2011, 3:07:35 PM (13 years ago)

Author:

jghattas

Message:

• Errors in argument list not corresponding between CALL and SUBROUTINE in some routines. These errors were found with compile option -qextchk at vargas.

• Removed option -qextchk from debug compile options at vargas. This option is not usable with mpi codes.

File:

• LMDZ5/trunk/libf/phylmd/calltherm.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/calltherm.F90

@@ -154 +154 @@
      &      ,zfm_therm,zentr_therm  &
      &      ,r_aspect_thermals,30.,w2di_thermals  &
-     &      ,tau_thermals,3)
+     &      ,tau_thermals)
           else if (iflag_thermals.eq.2) then
             CALL thermcell_sec(klon,klev,zdt  &
@@ -162 +162 @@
      &      ,zfm_therm,zentr_therm  &
      &      ,r_aspect_thermals,30.,w2di_thermals  &
-     &      ,tau_thermals,3)
+     &      ,tau_thermals)
           else if (iflag_thermals.eq.3) then
             CALL thermcell(klon,klev,zdt  &
@@ -170 +170 @@
      &      ,zfm_therm,zentr_therm  &
      &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
-     &      ,tau_thermals,3)
+     &      ,tau_thermals)
           else if (iflag_thermals.eq.10) then
             CALL thermcell_eau(klon,klev,zdt  &
@@ -178 +178 @@
      &      ,zfm_therm,zentr_therm  &
      &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
-     &      ,tau_thermals,3)
+     &      ,tau_thermals)
           else if (iflag_thermals.eq.11) then
               abort_message = 'cas non prevu dans calltherm'