Changeset 2471
- Timestamp:
- 2010-12-13T14:44:36+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90
r1822 r2471 80 80 IF( kn_fwb == 2 ) WRITE(numout,*) ' adjusted from previous year budget' 81 81 IF( kn_fwb == 3 ) WRITE(numout,*) ' emp set to zero and spread out over erp area' 82 ! 83 IF( kn_fwb == 3 .AND. nn_sssr /= 2 ) & 84 & CALL ctl_stop( 'The option nn_fwb = 3 must be associated to nn_sssr = 2 ' ) 85 86 ENDIF 82 ENDIF 83 ! 84 IF( kn_fwb == 3 .AND. nn_sssr /= 2 ) CALL ctl_stop( 'sbc_fwb: nn_fwb = 3 requires nn_sssr = 2, we stop ' ) 87 85 ! 88 86 e1e2_i(:,:) = e1t(:,:) * e2t(:,:) * tmask_i(:,:)
Note: See TracChangeset
for help on using the changeset viewer.