Changeset 2244 for LMDZ5/trunk/libf/phylmd/surf_seaice_mod.F90

Timestamp:

Mar 24, 2015, 3:17:55 PM (9 years ago)

Author:

fhourdin

Message:

Correction pour le 1D + toilettage
Bugfixing for 1D + cleaning

File:

• LMDZ5/trunk/libf/phylmd/surf_seaice_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/surf_seaice_mod.F90

@@ -17 +17 @@
        AcoefH, AcoefQ, BcoefH, BcoefQ, &
        AcoefU, AcoefV, BcoefU, BcoefV, &
-       ps, u1, v1, gustiness, rugoro, pctsrf, &
+       ps, u1, v1, gustiness, pctsrf, &
        snow, qsurf, qsol, agesno, tsoil, &
        z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, &  
@@ -58 +58 @@
     REAL, DIMENSION(klon), INTENT(IN)        :: ps
     REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
-    REAL, DIMENSION(klon), INTENT(IN)        :: rugoro
     REAL, DIMENSION(klon,nbsrf), INTENT(IN)  :: pctsrf