Changeset 14924 for NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfpar.F90

Timestamp:

2021-05-28T16:07:37+02:00 (3 years ago)

Author:

mathiot

Message:

ticket #2669 : off topic again, I plugged in the fix for the oasis case made by Christrian.

File:

• NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfpar.F90 (modified) (2 diffs)

NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfpar.F90

@@ -9 +9 @@
    !!            3.4  !  2013-03  (P. Mathiot) Merging + parametrization
    !!            4.1  !  2019-09  (P. Mathiot) Restructuration
+   !!            4.2  !  2021-05  (C. Ethe   ) Test and fix oasis case
    !!----------------------------------------------------------------------
 
@@ -177 +178 @@
       CASE ( 'oasis' )
          !
+         ALLOCATE( sf_isfpar_fwf(1), STAT=ierr )
+         ALLOCATE( sf_isfpar_fwf(1)%fnow(jpi,jpj,1), sf_isfpar_fwf(1)%fdta(jpi,jpj,1,2) )
+         CALL fld_fill( sf_isfpar_fwf, (/ sn_isfpar_fwf /), cn_isfdir, 'isf_par_init', 'read fresh water flux isf data', 'namisf' )
+         !
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) '      ==>>>    isf melt provided by OASIS (cn_isfmlt_par = oasis)'