- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/SBC/sbcfwb.F90
r13226 r13899 94 94 snwice_mass_b(:,:) = 0.e0 ! no sea-ice model is being used : no snow+ice mass 95 95 snwice_mass (:,:) = 0.e0 96 snwice_fmass (:,:) = 0.e0 96 97 #endif 97 98 ! … … 186 187 erp(:,:) = erp(:,:) + zerp_cor(:,:) 187 188 ! 188 IF( nprint == 1 .AND.lwp ) THEN ! control print189 IF( lwp ) THEN ! control print 189 190 IF( z_fwf < 0._wp ) THEN 190 191 WRITE(numout,*)' z_fwf < 0'
Note: See TracChangeset
for help on using the changeset viewer.