Changeset 136 in lmdz_wrf

Timestamp:

Jul 29, 2014, 11:32:34 AM (10 years ago)

Author:

lfita

Message:

Removing checking for NaNs?...

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_dq.F90 (modified) (5 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_dq.F90

@@ -38 +38 @@
       CHARACTER (LEN=80) :: abort_message
 
-
-! Lluis
-      INTEGER                                            :: llp
-      CHARACTER(LEN=50)                                  :: lvarname, lfname
-      REAL                                               :: largest
-
-      llp = 734
-      lfname = 'physiq'
-      largest = 10.e5
-
 ! Old explicite scheme
-      lfname='before old scheme'
-      lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
-
       if (impl==-1) then
          call thermcell_dq_o(ngrid,nlay,ptimestep,fm,entr,  &
@@ -58 +44 @@
          return
       endif
-      lfname='after old scheme'
-      lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
 
 ! Calcul du critere CFL pour l'advection dans la subsidence
@@ -131 +114 @@
       fqa(:,1)=0. ; fqa(:,nlay)=0.
 
-
-      lfname='after Plume vertical flux'
-      lvarname = 'qa'
-      CALL check_var3D(lfname, lvarname, qa, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'fm'
-      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'fqa'
-      CALL check_var3D(lfname, lvarname, fqa, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'q'
-      CALL check_var3D(lfname, lvarname, q, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'masse'
-      CALL check_var3D(lfname, lvarname, masse, ngrid, nlay, largest, .FALSE.)
-
 ! Trace species evolution
    if (impl==0) then
@@ -156 +126 @@
       enddo
    endif
-      lfname='after tendencies _dq 000'
-      lvarname = 'q'
-      CALL check_var3D(lfname, lvarname, q, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'qold'
-      CALL check_var3D(lfname, lvarname, qold, ngrid, nlay, largest, .FALSE.)
 
 ! Tendencies
@@ -171 +134 @@
          enddo
       enddo
-      lfname='after tendencies _dq'
-      lvarname = 'q'
-      CALL check_var3D(lfname, lvarname, q, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'dq'
-      CALL check_var3D(lfname, lvarname, dq, ngrid, nlay, largest, .FALSE.)
-      lvarname = 'qold'
-      CALL check_var3D(lfname, lvarname, qold, ngrid, nlay, largest, .FALSE.)
 
 return