Changeset 1793 for LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90

Timestamp:

Jul 18, 2013, 9:13:18 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Improved sponge layer:

• Sponge tendencies are now computed analytically, instead than using a Forward Euler approximation.
• Sponge tendencies are added within top_bound, and the sponge is applied after physics tendencies have been taken into account.

These changes imply that GCM results (when using sponge layer) will be differentwrt bench test cases using previous revisions.
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90

@@ -321 +321 @@
 #endif
 
-    IF (ok_strato) THEN
-      CALL top_bound_loc( vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
-    ENDIF
-
 #ifdef DEBUG_IO           
     CALL WriteField_u('ucovfi',ucov)
@@ -348 +344 @@
     ENDDO
 #endif
+
+    IF (ok_strato) THEN
+!      CALL top_bound_loc( vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
+      CALL top_bound_loc(vcov,ucov,teta,masse,dtphys)
+    ENDIF
 
   !$OMP BARRIER