New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90 – NEMO

Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (10 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90

    r3294 r4147  
    1111   !!            3.2  ! 2009-07 (G. Madec)  merge cla, cla_div, tra_cla, cla_dynspg 
    1212   !!                 !                     and correct a mpp bug reported by A.R. Porter 
    13    !!---------------------------------------------------------------------- 
    14 #if defined key_orca_r2 
    15    !!---------------------------------------------------------------------- 
    16    !!   'key_orca_r2'                                 global ocean model R2 
    1713   !!---------------------------------------------------------------------- 
    1814   !!   cla_div           : update of horizontal divergence at cla straits 
     
    733729   END SUBROUTINE cla_hormuz 
    734730    
    735 #else 
    736    !!---------------------------------------------------------------------- 
    737    !!   Default key                                            Dummy module 
    738    !!---------------------------------------------------------------------- 
    739    USE lib_mpp, ONLY:   ctl_stop 
    740 CONTAINS 
    741    SUBROUTINE cla_init 
    742       CALL ctl_stop( 'cla_init: Cross Land Advection hard coded for ORCA_R2 with 31 levels' ) 
    743    END SUBROUTINE cla_init 
    744    SUBROUTINE cla_div( kt ) 
    745       WRITE(*,*) 'cla_div: You should have not see this print! error?', kt 
    746    END SUBROUTINE cla_div 
    747    SUBROUTINE cla_traadv( kt )  
    748       WRITE(*,*) 'cla_traadv: You should have not see this print! error?', kt 
    749    END SUBROUTINE cla_traadv 
    750    SUBROUTINE cla_dynspg( kt )  
    751       WRITE(*,*) 'dyn_spg_cla: You should have not see this print! error?', kt 
    752    END SUBROUTINE cla_dynspg 
    753 #endif 
    754     
    755731   !!====================================================================== 
    756732END MODULE cla 
Note: See TracChangeset for help on using the changeset viewer.