Changeset 108 for trunk/libf/dyn3dpar/calfis_p.F

Timestamp:

Apr 12, 2011, 11:16:02 AM (14 years ago)

Author:

slebonnois

Message:

Sebastien Lebonnois: sponge layer et dissip horizontale.

File:

• trunk/libf/dyn3dpar/calfis_p.F (modified) (1 diff)

trunk/libf/dyn3dpar/calfis_p.F

@@ -952 +952 @@
       
 ! ADAPTATION GCM POUR CP(T)
-!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-      DO l=1,llm
-        ztfi(1:klon,l)=ztfi(1:klon,l)+zdtfi(1:klon,l)*dtphys
-      ENDDO
-!$OMP END DO
       call t2tpot_p(ngridmx,llm,ztfi,zteta,zpk)