- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90
r3294 r4147 11 11 !! 3.2 ! 2009-07 (G. Madec) merge cla, cla_div, tra_cla, cla_dynspg 12 12 !! ! and correct a mpp bug reported by A.R. Porter 13 !!----------------------------------------------------------------------14 #if defined key_orca_r215 !!----------------------------------------------------------------------16 !! 'key_orca_r2' global ocean model R217 13 !!---------------------------------------------------------------------- 18 14 !! cla_div : update of horizontal divergence at cla straits … … 733 729 END SUBROUTINE cla_hormuz 734 730 735 #else736 !!----------------------------------------------------------------------737 !! Default key Dummy module738 !!----------------------------------------------------------------------739 USE lib_mpp, ONLY: ctl_stop740 CONTAINS741 SUBROUTINE cla_init742 CALL ctl_stop( 'cla_init: Cross Land Advection hard coded for ORCA_R2 with 31 levels' )743 END SUBROUTINE cla_init744 SUBROUTINE cla_div( kt )745 WRITE(*,*) 'cla_div: You should have not see this print! error?', kt746 END SUBROUTINE cla_div747 SUBROUTINE cla_traadv( kt )748 WRITE(*,*) 'cla_traadv: You should have not see this print! error?', kt749 END SUBROUTINE cla_traadv750 SUBROUTINE cla_dynspg( kt )751 WRITE(*,*) 'dyn_spg_cla: You should have not see this print! error?', kt752 END SUBROUTINE cla_dynspg753 #endif754 755 731 !!====================================================================== 756 732 END MODULE cla
Note: See TracChangeset
for help on using the changeset viewer.