Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/dyn3dmem/guide_loc_mod.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/guide_loc_mod.F90 (modified) (1 diff)

LMDZ6/branches/Ocean_skin/libf/dyn3dmem/guide_loc_mod.F90

@@ -1212 +1212 @@
               enddo
             endif
-            if (pole_nord) then
+            if (pole_sud) then
               do i=1,iip1
                 qgui1(ip1jm+i,l)=qgui1(ip1jm+1,l)