Changeset 6129 for LMDZ6/trunk/libf

Timestamp:

Mar 26, 2026, 8:43:24 PM (10 days ago)

Author:

evignon

Message:

suppression de la routine clcdrag, devenue totalement obsolete au profit de coefcdrag

Location:

LMDZ6/trunk/libf

Files:

• phylmd/clcdrag.f90 (deleted)
• phylmd/pbl_surface_subsrf_mod.F90 (modified) (2 diffs)
• phylmdiso/clcdrag.f90 (deleted)

LMDZ6/trunk/libf/phylmd/pbl_surface_subsrf_mod.F90

@@ -1105 +1105 @@
          ENDDO
         ENDIF
-        IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x(1:knon)
+        IF (prt_level >=10) print *,'cdrag -> ycdragh_x ', ycdragh_x(1:knon)
 
         DO i = 1, knon
@@ -1135 +1135 @@
          ENDDO
         ENDIF
-        IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w(1:knon)
+        IF (prt_level >=10) print *,'cdrag -> ycdragh_w ', ycdragh_w(1:knon)
        ENDIF  ! (iflag_split .eq.0)