Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

Timestamp:

Jul 26, 2024, 5:56:37 PM (4 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

@@ -52 +52 @@
   USE config_ocean_skin_m, ONLY: activate_ocean_skin
   USE lmdz_abort_physic, ONLY: abort_physic
-
-  IMPLICIT none
+  USE lmdz_alpale
+
+  IMPLICIT NONE
 
   include "dimsoil.h"
   include "clesphys.h"
-  include "alpale.h"
   include "compbl.h"
   !======================================================================
@@ -509 +509 @@
 #endif
       !USE phyredem, ONLY: put_field_srf1
+      USE lmdz_alpale
 
         IMPLICIT NONE
@@ -516 +517 @@
  include "dimsoil.h"
  include "clesphys.h"
- include "alpale.h"
  include "compbl.h"
       ! inputs