Changeset 3966 for LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd

Timestamp:

Jul 22, 2021, 5:41:49 PM (3 years ago)

Author:

lfalletti

Message:

Update of Reprobus routine to save ps

File:

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

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

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