Changeset 4139 for LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

Timestamp:

Apr 28, 2022, 12:21:33 PM (2 years ago)

Author:

acozic

Message:

added (and call) a routine for the calculation of mass flux used in offline mode

File:

• LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -737 +737 @@
      .        flxw,pk, iapptrac)
 
+! call creation of mass flux 
+         IF (offline .AND. .NOT. adjust) THEN
+            CALL fluxstokenc_p(pbaru,pbarv,masse,teta,phi)
+         ENDIF
+
          !write(*,*) 'leapfrog 719'
          if (ok_iso_verif) then