Changeset 102 for palm/trunk/SOURCE/boundary_conds.f90

Timestamp:

Jul 27, 2007 9:09:17 AM (17 years ago)

Author:

raasch

Message:

preliminary version for coupled runs

File:

• palm/trunk/SOURCE/boundary_conds.f90 (modified) (3 diffs)

palm/trunk/SOURCE/boundary_conds.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Boundary conditions for temperature adjusted for coupled runs
 !
 ! Former revisions:
@@ -93 +93 @@
 
 !
-!--    Temperature at bottom boundary
+!--    Temperature at bottom boundary.
+!--    In case of coupled runs (ibc_pt_b = 2) the temperature is given by
+!--    the sea surface temperature of the coupled ocean model.
        IF ( ibc_pt_b == 0 )  THEN
           DO  i = nxl-1, nxr+1
@@ -100 +102 @@
              ENDDO
           ENDDO
-       ELSE
+       ELSEIF ( ibc_pt_b == 1 )  THEN
           DO  i = nxl-1, nxr+1
              DO  j = nys-1, nyn+1