Changeset 299 for trunk/NEMO/LIM_SRC

Timestamp:

2005-09-22T13:00:40+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_012 : CT : Add a comment to detail why the frld(:,:) array must be equal to 1 over T- land points

File:

• trunk/NEMO/LIM_SRC/limistate.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limistate.F90

@@ -152 +152 @@
       CALL lbc_lnk( hicif, 'T', 1. )
       CALL lbc_lnk( frld , 'T', 1. )
-!i bug frld = 1 over land
-      frld(:,:) = tms(:,:) * frld(:,:) + ( 1. - tms(:,:) )   ! put 1 over land
-!i
+
+      ! C A U T I O N  frld = 1 over land and lbc_lnk put zero along 
+      ! *************  closed boundaries herefore we force to one over land
+      frld(:,:) = tms(:,:) * frld(:,:) + ( 1. - tms(:,:) )   
+
       CALL lbc_lnk( hsnif, 'T', 1. )
       CALL lbc_lnk( sist , 'T', 1. )