Changeset 2471 for trunk

Timestamp:

2010-12-13T14:44:36+01:00 (13 years ago)

Author:

cetlod

Message:

v3.2: put the print control option at the right place, see ticket #764

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90

@@ -80 +80 @@
             IF( kn_fwb == 2 )   WRITE(numout,*) '          adjusted from previous year budget'
             IF( kn_fwb == 3 )   WRITE(numout,*) '          emp set to zero and spread out over erp area'
-            !
-            IF( kn_fwb == 3 .AND. nn_sssr /= 2 )   &
-               &   CALL ctl_stop( 'The option nn_fwb = 3 must be associated to nn_sssr = 2 ' )
-            
-         ENDIF
+         ENDIF
+         !
+         IF( kn_fwb == 3 .AND. nn_sssr /= 2 )   CALL ctl_stop( 'sbc_fwb: nn_fwb = 3 requires nn_sssr = 2, we stop ' )
          !
          e1e2_i(:,:) = e1t(:,:) * e2t(:,:) * tmask_i(:,:)