Changeset 2194


Ignore:
Timestamp:
02/10/14 18:18:53 (7 years ago)
Author:
aclsce
Message:

Modified NEMO/SOURCES specific to IPSLCM6 configuration ( compilation files and NEMO model sources)..
Removed some routines which are not specific anymore to IPSL configuration.

Location:
CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO
Files:
3 added
12 deleted
3 edited

Legend:

Unmodified
Added
Removed
  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/arch-X64_CURIE.fcm

    r2093 r2194  
    3030# 
    3131%XIOS_HOME           ${PWD}/../../XIOS 
    32 %OASIS_HOME          ${PWD}/../../../prism/X64 
     32%OASIS_HOME          ${PWD}/../../../oasis3-mct/BLD 
    3333 
    3434%NCDF_INC            -I${NETCDF_INC_DIR}  
     
    3737%XIOS_LIB            -L%XIOS_HOME/lib -lxios 
    3838%OASIS_INC           -I%OASIS_HOME/build/lib/psmile.MPI1  
    39 %OASIS_LIB           -L%OASIS_HOME/lib -lpsmile.MPI1 -lmpp_io 
     39%OASIS_LIB           -L%OASIS_HOME/lib -lpsmile.MPI1 -lscrip -lmct -lmpeu 
    4040 
    4141%FC                  mpif90 -c -cpp 
  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90

    r2189 r2194  
    6363   PUBLIC   sbc_cpl_ice_tau    ! routine called by sbc_ice_lim(_2).F90 
    6464   PUBLIC   sbc_cpl_ice_flx    ! routine called by sbc_ice_lim(_2).F90 
     65#if defined key_oasis_mct 
     66   PUBLIC   sbc_cpl_init  
     67#endif 
    6568 
    6669   INTEGER, PARAMETER ::   jpr_otx1   =  1            ! 3 atmosphere-ocean stress components on grid 1 
     
    680683      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
    681684 
    682       IF( kt == nit000 )   CALL sbc_cpl_init( k_ice )          ! initialisation 
    683  
     685#if ! defined key_oasis_mct 
     686       IF( kt == nit000 )   CALL sbc_cpl_init( k_ice )          ! initialisation 
     687#endif 
    684688      !                                                 ! Receive all the atmos. fields (including ice information) 
    685689      isec = ( kt - nit000 ) * NINT( rdttra(1) )             ! date of exchanges 
  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbcmod.F90

    r2113 r2194  
    4242   USE sbcfwb           ! surface boundary condition: freshwater budget 
    4343   USE closea           ! closed sea 
    44    USE bdy_par          ! for lk_bdy 
    45    USE bdyice_lim2      ! unstructured open boundary data  (bdy_ice_lim_2 routine) 
    4644   USE icbstp           ! Icebergs! 
    4745 
     
    6563   !!---------------------------------------------------------------------- 
    6664   !! NEMO/OPA 4.0 , NEMO-consortium (2011)  
    67    !! $Id: sbcmod.F90 3905 2013-05-24 13:40:39Z cetlod $ 
     65   !! $Id: sbcmod.F90 4230 2013-11-18 11:57:11Z cetlod $ 
    6866   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    6967   !!---------------------------------------------------------------------- 
     
    8482      INTEGER ::   icpt   ! local integer 
    8583      !! 
    86       NAMELIST/namsbc/ nn_fsbc, nn_ice_dyn, ln_ana   , ln_flx,  ln_blk_clio, ln_blk_core, ln_cpl,   & 
     84      NAMELIST/namsbc/ nn_fsbc   , ln_ana    , ln_flx,  ln_blk_clio, ln_blk_core, ln_cpl,   & 
    8785         &             ln_blk_mfs, ln_apr_dyn, nn_ice,  nn_ice_embd, ln_dm2dc   , ln_rnf,   & 
    88          &             ln_ssr    , nn_fwb    , ln_cdgw , ln_wave , ln_sdw, cn_iceflx 
     86         &             ln_ssr    , nn_fwb    , ln_cdgw , ln_wave , ln_sdw, nn_lsm, cn_iceflx 
     87      INTEGER  ::   ios 
    8988      !!---------------------------------------------------------------------- 
    9089 
     
    9594      ENDIF 
    9695 
    97       REWIND( numnam )           ! Read Namelist namsbc 
    98       READ  ( numnam, namsbc ) 
     96      REWIND( numnam_ref )              ! Namelist namsbc in reference namelist : Surface boundary 
     97      READ  ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 
     98901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwp ) 
     99 
     100      REWIND( numnam_cfg )              ! Namelist namsbc in configuration namelist : Parameters of the run 
     101      READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
     102902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
     103      WRITE ( numond, namsbc ) 
    99104 
    100105      !                          ! overwrite namelist parameter using CPP key information 
     
    108113          nn_ice      =   0 
    109114      ENDIF 
    110        
     115      
    111116      IF(lwp) THEN               ! Control print 
    112117         WRITE(numout,*) '        Namelist namsbc (partly overwritten with CPP key setting)' 
    113118         WRITE(numout,*) '           frequency update of sbc (and ice)             nn_fsbc     = ', nn_fsbc 
    114          WRITE(numout,*) '           frequency ice rheology and dynamics           nn_ice_dyn  = ', nn_ice_dyn 
    115119         WRITE(numout,*) '           Type of sbc : ' 
    116120         WRITE(numout,*) '              analytical formulation                     ln_ana      = ', ln_ana 
     
    121125         WRITE(numout,*) '              coupled    formulation (T if key_sbc_cpl)  ln_cpl      = ', ln_cpl 
    122126         WRITE(numout,*) '              Flux handling over ice categories          cn_iceflx   = ', TRIM (cn_iceflx) 
    123  
    124          WRITE(numout,*) '           lk_lim2 : ', lk_lim2 
    125          WRITE(numout,*) '           lk_lim3 : ', lk_lim3 
    126  
    127           
    128127         WRITE(numout,*) '           Misc. options of sbc : ' 
    129128         WRITE(numout,*) '              Patm gradient added in ocean & ice Eqs.    ln_apr_dyn  = ', ln_apr_dyn 
     
    135134         WRITE(numout,*) '              FreshWater Budget control  (=0/1/2)        nn_fwb      = ', nn_fwb 
    136135         WRITE(numout,*) '              closed sea (=0/1) (set in namdom)          nn_closea   = ', nn_closea 
    137       ENDIF 
    138  
    139       !   Flux handling over ice categories  
     136         WRITE(numout,*) '              n. of iterations if land-sea-mask applied  nn_lsm      = ', nn_lsm 
     137      ENDIF 
     138 
     139      !   Flux handling over ice categories 
     140#if defined key_coupled  
    140141      SELECT CASE ( TRIM (cn_iceflx)) 
    141142      CASE ('ave') 
     
    149150         ln_iceflx_linear = .FALSE. 
    150151      END SELECT 
    151       WRITE(numout,*) '              Fluxes averaged over all ice categories         ln_iceflx_ave    = ', ln_iceflx_ave 
    152       WRITE(numout,*) '              Fluxes distributed linearly over ice categories ln_iceflx_linear = ', ln_iceflx_linear 
     152      IF(lwp) WRITE(numout,*) '              Fluxes averaged over all ice categories         ln_iceflx_ave    = ', ln_iceflx_ave 
     153      IF(lwp) WRITE(numout,*) '              Fluxes distributed linearly over ice categories ln_iceflx_linear = ', ln_iceflx_linear 
     154#endif 
    153155      ! 
    154156      !                              ! allocate sbc arrays 
     
    190192      IF( ( nn_ice == 3 .OR. nn_ice == 4 ) .AND. nn_ice_embd == 0 )   & 
    191193         &   CALL ctl_stop( 'LIM3 and CICE sea-ice models require nn_ice_embd = 1 or 2' ) 
    192  
     194#if defined key_coupled 
    193195      IF( ln_iceflx_ave .AND. ln_iceflx_linear ) & 
    194196         &   CALL ctl_stop( ' ln_iceflx_ave and ln_iceflx_linear options are not compatible' ) 
    195  
    196197      IF( ( nn_ice ==3 .AND. lk_cpl) .AND. .NOT. ( ln_iceflx_ave .OR. ln_iceflx_linear ) ) & 
    197198         &   CALL ctl_stop( ' With lim3 coupled, either ln_iceflx_ave or ln_iceflx_linear must be set to .TRUE.' ) 
    198        
     199#endif       
    199200      IF( ln_dm2dc )   nday_qsr = -1   ! initialisation flag 
    200201 
     
    249250      ENDIF 
    250251      ! 
     252                          CALL sbc_ssm_init               ! Sea-surface mean fields initialisation 
     253      ! 
    251254      IF( ln_ssr      )   CALL sbc_ssr_init               ! Sea-Surface Restoring initialisation 
    252255      ! 
    253256      IF( nn_ice == 4 )   CALL cice_sbc_init( nsbc )      ! CICE initialisation 
     257      ! 
     258#if defined key_oasis_mct 
     259      IF( nsbc == 5 )   CALL sbc_cpl_init (nn_ice) 
     260#endif 
    254261      ! 
    255262   END SUBROUTINE sbc_init 
     
    324331      CASE(  1 )   ;         CALL sbc_ice_if   ( kt )                ! Ice-cover climatology ("Ice-if" model) 
    325332      CASE(  2 )   ;         CALL sbc_ice_lim_2( kt, nsbc )          ! LIM-2 ice model 
    326               IF( lk_bdy )   CALL bdy_ice_lim_2( kt )                ! BDY boundary condition 
    327333      CASE(  3 )   ;         CALL sbc_ice_lim  ( kt, nsbc )          ! LIM-3 ice model 
     334      !is it useful? 
    328335      CASE(  4 )   ;         CALL sbc_ice_cice ( kt, nsbc )          ! CICE ice model 
    329336      END SELECT                                               
Note: See TracChangeset for help on using the changeset viewer.