Changeset 5284 for LMDZ6/trunk/libf/phylmd/conccm.f90
- Timestamp:
- Oct 28, 2024, 2:12:55 PM (6 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/conccm.f90
r5274 r5284 18 18 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 19 19 , RALPD, RBETD, RGAMD 20 USE yoethf_mod_h 20 21 IMPLICIT NONE 21 22 ! ====================================================================== … … 24 25 ! (schema standard du modele NCAR CCM2) 25 26 ! ====================================================================== 26 27 include "YOETHF.h"28 27 29 28 ! Entree: … … 162 161 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 163 162 , RALPD, RBETD, RGAMD 163 USE yoethf_mod_h 164 164 IMPLICIT NONE 165 165 ! ----------------------------------------------------------------------- … … 314 314 315 315 REAL qhalf, sh1, sh2, shbs1, shbs2 316 include "YOETHF.h"317 316 include "FCTTRE.h" 318 317 qhalf(sh1, sh2, shbs1, shbs2) = min(max(sh1,sh2), &
Note: See TracChangeset
for help on using the changeset viewer.