Changeset 3982 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 10, 2021, 6:31:23 PM (3 years ago)
Author:
Laurent Fairhead
Message:

From Francis

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90

    r3803 r3982  
    595595        IF (f_out) CALL guide_out("ua",jjp1,llm,(1.-tau)*ugui1(ijb_u:ije_u,:)+tau*ugui2(ijb_u:ije_u,:),factt)
    596596        IF (f_out) CALL guide_out("u",jjp1,llm,ucov(ijb_u:ije_u,:),factt)
    597         IF (f_out) CALL guide_out("ucov",jjp1,llm,f_addu(ijb_u:ije_u,:),factt)
     597        IF (f_out) CALL guide_out("ucov",jjp1,llm,f_addu(ijb_u:ije_u,:)/factt,factt)
    598598!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    599599        DO l=1,llm
Note: See TracChangeset for help on using the changeset viewer.