Changeset 5282 for LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90
- Timestamp:
- Oct 28, 2024, 1:11:48 PM (6 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90
r5274 r5282 4 4 MODULE change_srf_frac_mod 5 5 6 IMPLICIT NONE 6 USE clesphys_mod_h 7 IMPLICIT NONE 7 8 8 9 CONTAINS 9 ! 10 ! 10 11 ! Change Surface Fractions 11 12 ! Author J Ghattas 2008 … … 14 15 pctsrf, evap, z0m, z0h, agesno, & 15 16 alb_dir, alb_dif, tsurf, ustar, u10m, v10m, pbl_tke) 16 17 18 19 ! 20 ! This subroutine is called from physiq.F at each timestep. 17 18 19 20 ! 21 ! This subroutine is called from physiq.F at each timestep. 21 22 ! 1- For each type of ocean (force, slab, couple) receive new fractions only if 22 ! it's time to modify (is_modified=true). Otherwise nothing is done (is_modified=false). 23 ! it's time to modify (is_modified=true). Otherwise nothing is done (is_modified=false). 23 24 ! If received new fraction : 24 ! 2- Tests and ajustements are done on the fractions 25 ! 3- Initialize variables where a new fraction(new or melted ice) has appered, 25 ! 2- Tests and ajustements are done on the fractions 26 ! 3- Initialize variables where a new fraction(new or melted ice) has appered, 26 27 ! 27 28 … … 49 50 50 51 !albedo SB >>> 51 include "clesphys.h"52 52 !albedo SB <<< 53 53
Note: See TracChangeset
for help on using the changeset viewer.