Changeset 2600 for LMDZ5/trunk/libf/dyn3dmem/vlspltqs_loc.F

Timestamp:

Jul 23, 2016, 7:45:38 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn comvert.h into module comvert_mod.F90
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/vlspltqs_loc.F (modified) (9 diffs)

LMDZ5/trunk/libf/dyn3dmem/vlspltqs_loc.F

@@ -15 +15 @@
       include "paramet.h"
       include "logic.h"
-      include "comvert.h"
 c
 c
@@ -173 +172 @@
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
         DO l=1,llm 
-          iadvplus(ip1jm+1:ip1jmp1,l)=0
+          iadvplus(ip1jm+1:ip1jmp1,l)=0
         ENDDO
 c$OMP END DO NOWAIT
       endif
-        
+              
 c   calcul des flux a gauche et a droite
 
@@ -413 +412 @@
 c    ********************************************************************
 c     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
-c     qsat             est   un argument de sortie pour le s-pg ....
+c     qsat                est   un argument de sortie pour le s-pg ....
 c
 c
@@ -425 +424 @@
       include "paramet.h"
       include "logic.h"
-      include "comvert.h"
       include "comgeom.h"
 c
@@ -581 +579 @@
          dyq(ij,l)=fn*dyq(ij,l)
         ENDDO
-          
+          
       ENDIF
       
@@ -602 +600 @@
         ENDDO
         
-c   calcul des pentes limites aux poles 
+c   calcul des pentes limites aux poles        
         fs=1.
         DO ij=1,iim
@@ -613 +611 @@
          dyq(ip1jm+ij,l)=fs*dyq(ip1jm+ij,l)
         ENDDO
-        
+        
       ENDIF
 
@@ -778 +776 @@
               masse(ij,l,iq)=newmasse
            ENDDO
-         
-         ENDIF
          
-         IF (pole_sud) THEN
-         
-           convps  = -SSUM(iim,qbyv(ip1jm-iim,l,iq),iq,1)/apols
+         ENDIF
+         
+         IF (pole_sud) THEN
+         
+           convps  = -SSUM(iim,qbyv(ip1jm-iim,l,iq),iq,1)/apols
            convmps = -SSUM(iim,masse_adv_v(ip1jm-iim,l),1)/apols
            DO ij = ip1jm+1,ip1jmp1
@@ -791 +789 @@
               masse(ij,l,iq)=newmasse
            ENDDO
-         
-         ENDIF
+         
+         ENDIF
 c.-. fin ancienne version