Changeset 13655 for NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/ABL/sbcabl.F90

Timestamp:

2020-10-21T16:15:13+02:00 (4 years ago)

Author:

laurent

Message:

Commit all my dev of 2020!

File:

• NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/ABL/sbcabl.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/ABL/sbcabl.F90

@@ -22 +22 @@
    USE sbc_oce        ! Surface boundary condition: ocean fields
    USE sbcblk         ! Surface boundary condition: bulk formulae
-   USE sbcblk_phy     ! Surface boundary condition: bulk formulae
+   USE sbc_phy        ! Surface boundary condition: bulk formulae
    USE dom_oce, ONLY  : tmask
    !
@@ -320 +320 @@
       INTEGER ,         INTENT(in) ::   kt   ! ocean time step
       !!
-      REAL(wp), DIMENSION(jpi,jpj) ::   zssq, zcd_du, zsen, zevp
+      REAL(wp), DIMENSION(jpi,jpj) ::   zssq, zcd_du, zsen, zlat, zevp
 #if defined key_si3
       REAL(wp), DIMENSION(jpi,jpj) ::   zssqi, zcd_dui, zseni, zevpi
@@ -344 +344 @@
             &                sf(jp_uoatm)%fnow(:,:,1), sf(jp_voatm)%fnow(:,:,1),   &   !   <<= in
             &                sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1) ,   &   !   <<= in
-            &                tsk_m, zssq, zcd_du, zsen, zevp                       )   !   =>> out
+            &                tsk_m, zssq, zcd_du, zsen, zlat, zevp                 )   !   =>> out
 
 #if defined key_si3
@@ -375 +375 @@
          !!-------------------------------------------------------------------------------------------
 
-         CALL blk_oce_2( tq_abl(:,:,2,nt_n,jp_ta),                            &
-            &            sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1),   &
+         CALL blk_oce_2( tq_abl(:,:,2,nt_n,jp_ta), sf(jp_qlw )%fnow(:,:,1),   &
             &            sf(jp_prec)%fnow(:,:,1) , sf(jp_snow)%fnow(:,:,1),   &
-            &            tsk_m, zsen, zevp                                )
+            &            tsk_m, zsen, zlat, zevp                                )
    
          CALL abl_rst_opn( kt )                       ! Open abl restart file (if necessary)