Changeset 1463 for trunk/NEMO/OPA_SRC/SBC/albedo.F90

Timestamp:

2009-06-09T16:45:31+02:00 (15 years ago)

Author:

smasson

Message:

force 3rd dimension in sea-ice coupling fields, see ticket:444

File:

• trunk/NEMO/OPA_SRC/SBC/albedo.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/albedo.F90

@@ -64 +64 @@
       !! References :   Shine and Hendersson-Sellers 1985, JGR, 90(D1), 2243-2250.
       !!----------------------------------------------------------------------
-      REAL(wp), INTENT(in   ), DIMENSION(:,:,:) ::   pt_ice      !  ice surface temperature
+      REAL(wp), INTENT(in   ), DIMENSION(:,:,:) ::   pt_ice      !  ice surface temperature (Kelvin)
       REAL(wp), INTENT(in   ), DIMENSION(:,:,:) ::   ph_ice      !  sea-ice thickness
       REAL(wp), INTENT(in   ), DIMENSION(:,:,:) ::   ph_snw      !  snow thickness