Changeset 10534 for NEMO/trunk/src/OCE/SBC/sbccpl.F90

Timestamp:

2019-01-16T17:49:45+01:00 (5 years ago)

Author:

clem

Message:

change some more names in the ice

File:

• NEMO/trunk/src/OCE/SBC/sbccpl.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/SBC/sbccpl.F90

@@ -2012 +2012 @@
       !                                                      !      Transmitted Qsr      !   [W/m2]
       !                                                      ! ========================= !
-      SELECT CASE( nice_jules )
-      CASE( np_jules_OFF    )       !==  No Jules coupler  ==!
+      IF( .NOT.ln_cndflx ) THEN                              !==  No conduction flux as surface forcing  ==!
          !
          !                    ! ===> used prescribed cloud fraction representative for polar oceans in summer (0.81)
@@ -2022 +2021 @@
          WHERE( phi(:,:,:) <= 0.1_wp )   qtr_ice_top(:,:,:) = qsr_ice(:,:,:)   ! thin ice transmits all solar radiation
          !     
-      CASE( np_jules_ACTIVE )       !==  Jules coupler is active  ==!
+      ELSEIF( ln_cndflx .AND. .NOT.ln_cndemulate ) THEN      !==  conduction flux as surface forcing  ==!
          !
          !                    ! ===> here we must receive the qtr_ice_top array from the coupler
@@ -2028 +2027 @@
          qtr_ice_top(:,:,:) = 0._wp
          !
-      END SELECT
+      ENDIF
       !
 #endif