Changeset 1703 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Apr 24, 2017, 11:53:20 AM (8 years ago)

Author:

slebonnois

Message:

SL: rectification du precedent commit pour les routines qui ne devaient pas etre concernées..... Désolé

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

@@ -862 +862 @@
 c$OMP BARRIER
 ! Compute geopotential (physics might need it)
-
-         call tpot2t_glo_p(teta,temp,pk)
-         ijb=ij_begin
-         ije=ij_end
-!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-         do l=1,llm
-           tsurpk(ijb:ije,l)=cpp*temp(ijb:ije,l)/pk(ijb:ije,l)
-         enddo
-!$OMP END DO
-c$OMP MASTER
-
-!        CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi)
-         CALL geopot_p( ip1jmp1, tsurpk, pk, pks, phis, phi )
-c$OMP END MASTER
+         CALL geopot_p  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
 
            jD_cur = jD_ref + day_ini - day_ref