Changeset 2267

Timestamp:

2010-10-14T15:45:22+02:00 (14 years ago)

Author:

smasson

Message:

add a control in coupled mode if ln_dm2dc = .true.

Location:

branches/nemo_v3_3_beta/NEMOGCM

Files:

• NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (5 diffs)
• NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)
• TOOLS/COMPILE/bld.cfg (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -29 +29 @@
    USE mod_prism_put_proto          ! OASIS3 prism module for snding
    USE mod_prism_get_proto          ! OASIS3 prism module for receiving
+   USE mod_comprism_proto           ! OASIS3 prism module to get coupling frequency
    USE par_oce                      ! ocean parameters
    USE dom_oce                      ! ocean space and time domain
@@ -61 +62 @@
    PUBLIC cpl_prism_snd
    PUBLIC cpl_prism_rcv
+   PUBLIC cpl_prism_freq
    PUBLIC cpl_prism_finalize
 
@@ -210 +212 @@
       !! * Arguments
       !!
-      INTEGER,                      INTENT( IN    )   :: kid       ! variable intex in the array
+      INTEGER,                      INTENT( IN    )   :: kid       ! variable index in the array
       INTEGER,                      INTENT(   OUT )   :: kinfo     ! OASIS3 info argument
       INTEGER,                      INTENT( IN    )   :: kstep     ! ocean time-step in seconds
@@ -247 +249 @@
       !!      like stresses and fluxes from the coupler or remote application.
       !!----------------------------------------------------------------------
-      INTEGER,                      INTENT( IN    )   :: kid       ! variable intex in the array
+      INTEGER,                      INTENT( IN    )   :: kid       ! variable index in the array
       INTEGER,                      INTENT( IN    )   :: kstep     ! ocean time-step in seconds
       REAL(wp), DIMENSION(jpi,jpj), INTENT( INOUT )   :: pdata     ! IN to keep the value if nothing is done
@@ -293 +295 @@
 
 
+   FUNCTION cpl_prism_freq( kid )  
+
+      !!---------------------------------------------------------------------
+      !!              ***  ROUTINE cpl_prism_freq  ***
+      !!
+      !! ** Purpose : - send back the coupling frequency for a particular field
+      !!----------------------------------------------------------------------
+      INTEGER,INTENT( IN )   :: kid              ! variable index 
+      INTEGER                :: cpl_prism_freq   ! coupling frequency
+      cpl_prism_freq = ig_def_freq( kid )
+
+   END FUNCTION cpl_prism_freq
+
+
    SUBROUTINE cpl_prism_finalize
 

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -528 +528 @@
       CALL cpl_prism_define(jprcv, jpsnd)            
       !
+      IF( ln_dm2dc .AND. ( cpl_prism_freq( jpr_qsroce ) + cpl_prism_freq( jpr_qsrmix ) /= 86400 ) )   &
+         &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' )
+
    END SUBROUTINE sbc_cpl_init
 

branches/nemo_v3_3_beta/NEMOGCM/TOOLS/COMPILE/bld.cfg

@@ -75 +75 @@
 bld::excl_dep        use::mod_prism_get_proto
 bld::excl_dep        use::mod_prism_put_proto
+bld::excl_dep        use::mod_comprism_proto
 bld::excl_dep        use::mkl_dfti
 # Don't generate interface files