Changeset 9570 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/SBC/sbccpl.F90

Timestamp:

2018-05-11T12:53:25+02:00 (6 years ago)

Author:

nicolasmartin

Message:

Global renaming for core routines (./NEMO)

• Folders
  • LIM_SRC_3 -> ICE_SRC
  • OPA_SRC -> OCE_SRC
• CPP key: key_lim3 -> key_si3
• Modules, (sub)routines and variables names
  • MPI: mpi_comm_opa -> mpi_comm_oce, MPI_COMM_OPA -> MPI_COMM_OCE, mpi_init_opa -> mpi_init_oce
  • AGRIF: agrif_opa_* -> agrif_oce_*, agrif_lim3_* -> agrif_si3_* and few more
  • TOP-PISCES: p.zlim -> p.zice, namp.zlim -> namp.zice
• Comments
  • NEMO/OPA -> NEMO/OCE
  • ESIM|LIM3 -> SI3

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC

Files:

• . (moved) (moved from branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC)
• SBC/sbccpl.F90 (modified) (12 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/SBC/sbccpl.F90

@@ -27 +27 @@
    USE sbcwave         ! surface boundary condition: waves
    USE phycst          ! physical constants
-#if defined key_lim3
+#if defined key_si3
    USE ice            ! ice variables
 #endif
@@ -40 +40 @@
    USE ice_domain_size, only: ncat
 #endif
-#if defined key_lim3
+#if defined key_si3
    USE icethd_dh      ! for CALL ice_thd_snwblow
 #endif
@@ -200 +200 @@
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
+   !! NEMO/OCE 3.3 , NEMO Consortium (2010)
    !! $Id$
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -216 +216 @@
       ALLOCATE( alb_oce_mix(jpi,jpj), nrcvinfo(jprcv),  STAT=ierr(1) )
       
-#if ! defined key_lim3 && ! defined key_cice
+#if ! defined key_si3 && ! defined key_cice
       ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) )  ! used in sbcice_if.F90 (done here as there is no sbc_ice_if_init)
 #endif
@@ -1244 +1244 @@
       !                                                      !   ice skin temp.   !
       !                                                      ! ================== !
-#if defined key_lim3
+#if defined key_si3
       ! needed by Met Office
       IF( srcv(jpr_ts_ice)%laction ) THEN 
@@ -1741 +1741 @@
       END SELECT
 
-#if defined key_lim3
+#if defined key_si3
       ! zsnw = snow fraction over ice after wind blowing (=picefr if no blowing)
       zsnw(:,:) = 0._wp   ;   CALL ice_thd_snwblow( ziceld, zsnw )
@@ -1888 +1888 @@
       IF( srcv(jpr_icb)%laction )   zqns_tot(:,:) = zqns_tot(:,:) - frcv(jpr_icb)%z3(:,:,1) * lfus  ! remove latent heat of iceberg melting
 
-#if defined key_lim3      
+#if defined key_si3      
       ! --- non solar flux over ocean --- !
       !         note: ziceld cannot be = 0 since we limit the ice concentration to amax
@@ -2023 +2023 @@
       ENDIF
 
-#if defined key_lim3
+#if defined key_si3
       ! --- solar flux over ocean --- !
       !         note: ziceld cannot be = 0 since we limit the ice concentration to amax
@@ -2066 +2066 @@
       ENDIF
 
-#if defined key_lim3      
+#if defined key_si3      
       !                                                      ! ========================= !
       SELECT CASE( TRIM( sn_rcv_iceflx%cldes ) )             !  ice topmelt and botmelt  !
@@ -2187 +2187 @@
       !                                                      ! 1st layer ice/snow temp.  !
       !                                                      ! ------------------------- !
-#if defined key_lim3
+#if defined key_si3
       ! needed by  Met Office
       IF( ssnd(jps_ttilyr)%laction) THEN
@@ -2311 +2311 @@
       ENDIF
 
-#if defined key_lim3
+#if defined key_si3
       !                                                      ! ------------------------- !
       !                                                      !      Ice melt ponds       ! 
@@ -2684 +2684 @@
       IF( ssnd(jps_taum  )%laction )  CALL cpl_snd( jps_taum  , isec, RESHAPE ( taum, (/jpi,jpj,1/) ), info )
 
-#if defined key_lim3
+#if defined key_si3
       !                                                      ! ------------------------- !
       !                                                      ! Sea surface freezing temp !