Changeset 5220 for branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

Timestamp:

2015-04-17T11:50:03+02:00 (9 years ago)

Author:

smasson

Message:

dev_r5218_CNRS17_coupling: first update

File:

• branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 (modified) (4 diffs)

branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

@@ -94 +94 @@
       !!              - fr_i    : ice fraction
       !!              - tn_ice  : sea-ice surface temperature
-      !!              - alb_ice : sea-ice albedo (lk_cpl=T)
+      !!              - alb_ice : sea-ice albedo (ln_cpl=T)
       !!
       !! References : Goosse, H. et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90.
@@ -128 +128 @@
             ! Solar heat flux reaching the ocean = zfcm1 (W.m-2) 
             !---------------------------------------------------
-            IF( lk_cpl ) THEN 
+            IF( ln_cpl ) THEN 
                !!! LIM2 version zqsr = qsr_tot(ji,jj) + ( fstric(ji,jj) - qsr_ice(ji,jj,1) ) * ( 1.0 - pfrld(ji,jj) )
                zfcm1 = qsr_tot(ji,jj)
@@ -168 +168 @@
             !        
             !  computing freshwater exchanges at the ice/ocean interface
-            IF( lk_cpl ) THEN 
+            IF( ln_cpl ) THEN 
                 zemp =   emp_tot(ji,jj)                                    &   ! net mass flux over grid cell
                    &   - emp_ice(ji,jj) * ( 1._wp - pfrld(ji,jj) )         &   ! minus the mass flux intercepted by sea ice
@@ -216 +216 @@
       !    Snow/ice albedo (only if sent to coupler)   !
       !------------------------------------------------!
-      IF( lk_cpl ) THEN          ! coupled case
+      IF( ln_cpl ) THEN          ! coupled case
 
             CALL wrk_alloc( jpi, jpj, jpl, zalb_cs, zalb_os )