Changeset 1245
- Timestamp:
- 2009-01-06T12:29:15+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90
r1218 r1245 84 84 SELECT CASE ( kn_fwb ) 85 85 ! 86 CASE ( 0 ) 87 WRITE(ctmp1,*)'sbc_fwb : nn_fwb = ', kn_fwb, ' is not yet associated to an option, choose either 1/2' 88 CALL ctl_stop( ctmp1 ) 89 ! 90 91 ! 86 92 CASE ( 1 ) ! global mean emp set to zero 87 93 IF( MOD( kt-1, kn_fsbc ) == 0 ) THEN … … 137 143 ! 138 144 CASE DEFAULT ! you should never be there 139 WRITE(ctmp1,*)'sbc_fwb : nn_fwb = ', kn_fwb, ' is not permitted for the FreshWater Budget correction, choose either 0/1/2'145 WRITE(ctmp1,*)'sbc_fwb : nn_fwb = ', kn_fwb, ' is not permitted for the FreshWater Budget correction, choose either 1/2' 140 146 CALL ctl_stop( ctmp1 ) 141 147 !
Note: See TracChangeset
for help on using the changeset viewer.