Changeset 2496 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2010-12-20T16:28:20+01:00 (14 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r2482 r2496 1 MODULE opa1 MODULE nemogcm 2 2 !!====================================================================== 3 !! *** MODULE opa***4 !! Ocean system : OPA ocean dynamics (including on-line tracersand sea-ice)3 !! *** MODULE nemogcm *** 4 !! Ocean system : NEMO GCM (ocean dynamics, on-line tracers, biochemistry and sea-ice) 5 5 !!====================================================================== 6 6 !! History : OPA ! 1990-10 (C. Levy, G. Madec) Original code … … 30 30 31 31 !!---------------------------------------------------------------------- 32 !! opa_model : solve ocean dynamics, tracerand/or sea-ice33 !! opa_init : initialization of the opa model34 !! opa_ctl : initialisation of algorithm flag35 !! opa_closefile : close remainingfiles32 !! nemo_gcm : solve ocean dynamics, tracer, biogeochemistry and/or sea-ice 33 !! nemo_init : initialization of the NEMO system 34 !! nemo_ctl : initialisation of the contol print 35 !! nemo_closefile : close remaining open files 36 36 !!---------------------------------------------------------------------- 37 38 37 USE step_oce ! module used in the ocean time stepping module 39 38 USE sbc_oce ! surface boundary condition: ocean … … 55 54 USE diaptr ! poleward transports (dia_ptr_init routine) 56 55 USE diaobs ! Observation diagnostics (dia_obs_init routine) 57 USE step ! OPA time-stepping(stp routine)56 USE step ! NEMO time-stepping (stp routine) 58 57 #if defined key_oasis3 59 58 USE cpl_oasis3 ! OASIS3 coupling … … 73 72 PRIVATE 74 73 75 PUBLIC opa_model! called by model.F9076 PUBLIC opa_init! needed by AGRIF74 PUBLIC nemo_gcm ! called by model.F90 75 PUBLIC nemo_init ! needed by AGRIF 77 76 78 77 CHARACTER (len=64) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing … … 85 84 CONTAINS 86 85 87 SUBROUTINE opa_model88 !!---------------------------------------------------------------------- 89 !! *** ROUTINE opa***90 !! 91 !! ** Purpose : opasolves the primitive equations on an orthogonal86 SUBROUTINE nemo_gcm 87 !!---------------------------------------------------------------------- 88 !! *** ROUTINE nemo_gcm *** 89 !! 90 !! ** Purpose : NEMO solves the primitive equations on an orthogonal 92 91 !! curvilinear mesh on the sphere. 93 92 !! … … 107 106 108 107 ! !-----------------------! 109 CALL opa_init!== Initialisations ==!108 CALL nemo_init !== Initialisations ==! 110 109 ! !-----------------------! 111 110 … … 162 161 ENDIF 163 162 ! 164 CALL opa_closefile163 CALL nemo_closefile 165 164 #if defined key_oasis3 || defined key_oasis4 166 165 CALL cpl_prism_finalize ! end coupling and mpp communications with OASIS … … 169 168 #endif 170 169 ! 171 END SUBROUTINE opa_model 172 173 174 SUBROUTINE opa_init 175 !!---------------------------------------------------------------------- 176 !! *** ROUTINE opa_init *** 177 !! 178 !! ** Purpose : initialization of the opa model 179 !! 180 !!---------------------------------------------------------------------- 181 INTEGER :: ji ! dummy loop indices 170 END SUBROUTINE nemo_gcm 171 172 173 SUBROUTINE nemo_init 174 !!---------------------------------------------------------------------- 175 !! *** ROUTINE nemo_init *** 176 !! 177 !! ** Purpose : initialization of the NEMO GCM 178 !!---------------------------------------------------------------------- 179 INTEGER :: ji ! dummy loop indices 182 180 INTEGER :: ilocal_comm ! local integer 183 CHARACTER(len=80), DIMENSION(10) :: cltxt = ''181 CHARACTER(len=80), DIMENSION(10) :: cltxt 184 182 !! 185 183 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 186 184 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench 187 185 !!---------------------------------------------------------------------- 186 ! 187 cltxt = '' 188 188 ! 189 189 ! ! open Namelist file … … 235 235 ! 236 236 ENDIF 237 ! !------------------------------- -!238 ! ! Modelgeneral initialization !239 ! !------------------------------- -!240 241 CALL opa_ctl! Control prints & Benchmark237 ! !-------------------------------! 238 ! ! NEMO general initialization ! 239 ! !-------------------------------! 240 241 CALL nemo_ctl ! Control prints & Benchmark 242 242 243 243 ! ! Domain decomposition … … 315 315 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 316 316 ! 317 END SUBROUTINE opa_init318 319 320 SUBROUTINE opa_ctl321 !!---------------------------------------------------------------------- 322 !! *** ROUTINE opa_ctl ***317 END SUBROUTINE nemo_init 318 319 320 SUBROUTINE nemo_ctl 321 !!---------------------------------------------------------------------- 322 !! *** ROUTINE nemo_ctl *** 323 323 !! 324 324 !! ** Purpose : control print setting … … 327 327 !!---------------------------------------------------------------------- 328 328 ! 329 IF(lwp) THEN ! Parameterprint329 IF(lwp) THEN ! control print 330 330 WRITE(numout,*) 331 WRITE(numout,*) ' opa_ctl: Control prints & Benchmark'331 WRITE(numout,*) 'nemo_ctl: Control prints & Benchmark' 332 332 WRITE(numout,*) '~~~~~~~ ' 333 333 WRITE(numout,*) ' Namelist namctl' … … 355 355 IF( ln_ctl ) THEN ! sub-domain area indices for the control prints 356 356 IF( lk_mpp ) THEN 357 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split teddomain357 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain 358 358 ELSE 359 359 IF( isplt == 1 .AND. jsplt == 1 ) THEN … … 398 398 ENDIF 399 399 ! 400 IF( lk_c1d .AND. .NOT.lk_iomput ) CALL ctl_stop( ' opa_ctl: The 1D configuration must be used ', &401 & 'with the IOM Input/Output manager. ' , &400 IF( lk_c1d .AND. .NOT.lk_iomput ) CALL ctl_stop( 'nemo_ctl: The 1D configuration must be used ', & 401 & 'with the IOM Input/Output manager. ' , & 402 402 & 'Compile with key_iomput enabled' ) 403 403 ! 404 END SUBROUTINE opa_ctl405 406 407 SUBROUTINE opa_closefile408 !!---------------------------------------------------------------------- 409 !! *** ROUTINE opa_closefile ***404 END SUBROUTINE nemo_ctl 405 406 407 SUBROUTINE nemo_closefile 408 !!---------------------------------------------------------------------- 409 !! *** ROUTINE nemo_closefile *** 410 410 !! 411 411 !! ** Purpose : Close the files … … 425 425 numout = 6 ! redefine numout in case it is used after this point... 426 426 ! 427 END SUBROUTINE opa_closefile427 END SUBROUTINE nemo_closefile 428 428 429 429 !!====================================================================== 430 END MODULE opa430 END MODULE nemogcm
Note: See TracChangeset
for help on using the changeset viewer.