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

Timestamp:

Jul 26, 2021, 5:15:43 PM (3 years ago)

Author:

lfalletti

Message:

Update of Reprobus routine to save pplay (pfull)

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(paprs, aps, bps, ap, bp)
+        CALL coord_hyb_rep(paprs, pplay, aps, bps, ap, bp)
 #endif
     ENDIF