Changeset 3964

Timestamp:

Jul 21, 2021, 11:58:37 AM (3 years ago)

Author:

lfalletti

Message:

New Reprobus routine to save hybrid coordinates

File:

• LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/physiq_mod.F90

@@ -4900 +4900 @@
     ENDIF
 
+    IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+        CALL coord_hyb_rep(aps, bps, ap, bp)
+#endif
+    ENDIF
 
     !