Changeset 4136

Timestamp:

Apr 21, 2022, 9:11:30 PM (2 years ago)

Author:

fhourdin

Message:

Supression d'un goto

File:

• LMDZ6/trunk/libf/phylmd/thermcell_dq.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/thermcell_dq.F90

@@ -39 +39 @@
 
 ! Old explicite scheme
-      if (impl<=-1) then
+if (impl<=-1) then
+
          call thermcell_dq_o(ngrid,nlay,impl,ptimestep,fm,entr,  &
      &           masse,q,dq,qa,lev_out)
-         goto 1000
-      endif
+
+else
+  
 
 ! Calcul du critere CFL pour l'advection dans la subsidence
@@ -142 +144 @@
       enddo
 
-1000 continue
- RETURN
+endif ! impl=-1
+RETURN
 end
+
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!