Changeset 14072 for NEMO/trunk/src/OCE/ISF/isfcav.F90

Timestamp:

2020-12-04T08:48:38+01:00 (3 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

• NEMO/trunk/src/OCE/ISF/isfcav.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ISF/isfcav.F90

@@ -79 +79 @@
       CALL isf_tbl(Kmm, ts(:,:,:,jp_tem,Kmm), zttbl(:,:),'T', misfkt_cav, rhisf_tbl_cav, misfkb_cav, rfrac_tbl_cav )
       CALL isf_tbl(Kmm, ts(:,:,:,jp_sal,Kmm), zstbl(:,:),'T', misfkt_cav, rhisf_tbl_cav, misfkb_cav, rfrac_tbl_cav )
-      ! 
+      !
       ! output T/S/U/V for the top boundary layer
       CALL iom_put('ttbl_cav',zttbl(:,:) * mskisf_cav(:,:))
@@ -97 +97 @@
                &                                    zgammat, zgammas )
          END IF
-         !   
+         !
          ! compute tfrz, latent heat and melt (2d)
          CALL isfcav_mlt(kt, zgammat, zgammas, zttbl, zstbl, &