Ignore:
Timestamp:
Oct 28, 2024, 2:12:55 PM (6 hours ago)
Author:
abarral
Message:

Turn alpale.h alpale.f90 YOETHF.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r5282 r5284  
    9696  USE phys_state_var_mod, ONLY: beta_aridity, delta_tsurf, awake_dens, cv_gen, &
    9797       ratqs_inter_
    98   !use ioipsl
     98  USE alpale_mod
    9999  IMPLICIT NONE
    100100!-------------------------------------------------------------------------------
    … …  
    131131
    132132  INCLUDE "compbl.h"
    133   INCLUDE "alpale.h"
    134  
     133
    135134  deg2rad= pi/180.0
    136135  iml=assert_eq(SIZE(masque,1),SIZE(phis,1),TRIM(modname)//" iml")
Note: See TracChangeset for help on using the changeset viewer.