Changeset 1242 for trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2009-01-06T11:21:38+01:00 (15 years ago)

Author:

rblod

Message:

Fix runtime issues with AGRIF on NEC and add the ability to run without sea-ice on the fine grid hierarchy

File:

• trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -215 +215 @@
 
       IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN
-          CALL blk_oce_clio( sst_m )                  ! compute the surface ocean fluxes using CLIO bulk formulea
-      ENDIF                                           ! 
+          CALL blk_oce_clio( sf, sst_m )                  ! compute the surface ocean fluxes using CLIO bulk formulea
+      ENDIF                                               ! 
       !
    END SUBROUTINE sbc_blk_clio
 
 
-   SUBROUTINE blk_oce_clio( pst )
+   SUBROUTINE blk_oce_clio( sf, pst )
       !!---------------------------------------------------------------------------
       !!                     ***  ROUTINE blk_oce_clio  ***
@@ -242 +242 @@
       !!               - qns, qsr    non-slor and solar heat flux
       !!               - emp, emps   evaporation minus precipitation
+      !!  ** Nota    :   sf has to be a dummy argument for AGRIF on NEC
       !!----------------------------------------------------------------------
-      REAL(wp), INTENT(in), DIMENSION(jpi,jpj) ::   pst   ! surface temperature                      [Celcius]
+      TYPE(fld), INTENT(in), DIMENSION(:)       ::   sf    ! input data
+      REAL(wp) , INTENT(in), DIMENSION(jpi,jpj) ::   pst   ! surface temperature                      [Celcius]
       !!
       INTEGER  ::   ji, jj   ! dummy loop indices
@@ -284 +286 @@
          END DO
       END DO
-
 
       !------------------------------------------------!