Changeset 1056
- Timestamp:
- 2008-06-04T18:43:38+02:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/dommsk.F90
r896 r1056 497 497 !!---------------------------------------------------------------------- 498 498 INTEGER :: ji, jj, jk, jl ! dummy loop indices 499 INTEGER :: ine, inw, ins, inn, itest, ierror, iind, ijnd , ii499 INTEGER :: ine, inw, ins, inn, itest, ierror, iind, ijnd 500 500 INTEGER, DIMENSION(jpi*jpj*jpk,3) :: icoord 501 501 REAL(wp) :: zaa -
trunk/NEMO/OPA_SRC/DYN/divcur.F90
r911 r1056 87 87 INTEGER :: ii, ij, jl ! temporary integer 88 88 INTEGER :: ijt, iju ! temporary integer 89 REAL(wp) :: zdiv, zdju90 89 REAL(wp), DIMENSION( jpi ,1:jpj+2) :: zwu ! workspace 91 90 REAL(wp), DIMENSION(-1:jpi+2, jpj ) :: zwv ! workspace -
trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90
r719 r1056 5 5 !! turbulent closure parameterization 6 6 !!===================================================================== 7 !! History : 8.5 ! 02-06 (G. Madec) original code 8 !! 9.0 ! 06-07 (S. Masson) iom, add ctl_stop, ctl_warn 7 !! History : 1.0 ! 2002-06 (G. Madec) original code 8 !! 2.0 ! 2006-07 (S. Masson) iom, add ctl_stop, ctl_warn 9 !! 3.0 ! 2008-06 (G. Madec) add ctmp4 to ctmp10 9 10 !!---------------------------------------------------------------------- 10 11 … … 12 13 !! ctl_stop : update momentum and tracer Kz from a tke scheme 13 14 !! ctl_warn : initialization, namelist read, and parameters control 15 !! getunit : give the index of an unused logical unit 14 16 !!---------------------------------------------------------------------- 15 USE par_kind 16 USE par_oce 17 USE lib_print 17 USE par_kind ! kind definition 18 USE par_oce ! ocean parameter 19 USE lib_print ! formated print library 18 20 19 21 IMPLICIT NONE … … 77 79 INTEGER :: nstop = 0 !: error flag (=number of reason for a premature stop run) 78 80 INTEGER :: nwarn = 0 !: warning flag (=number of warning found during the run) 79 CHARACTER(len=200) :: ctmp1, ctmp2, ctmp3 !: temporary character 81 CHARACTER(len=200) :: ctmp1, ctmp2, ctmp3 !: temporary characters 1 to 3 82 CHARACTER(len=200) :: ctmp4, ctmp5, ctmp6 !: temporary characters 4 to 6 83 CHARACTER(len=200) :: ctmp7, ctmp8, ctmp9 !: temporary characters 7 to 9 84 CHARACTER(len=200) :: ctmp10 !: temporary character 10 80 85 CHARACTER (len=64) :: cform_err = "(/,' ===>>> : E R R O R', /,' ===========',/)" !: 81 86 CHARACTER (len=64) :: cform_war = "(/,' ===>>> : W A R N I N G', /,' ===============',/)" !: … … 83 88 LOGICAL :: lsp_area = .TRUE. !: to make a control print over a specific area 84 89 !!---------------------------------------------------------------------- 85 !! OPA 9.0 , LOCEAN-IPSL (2005)86 !! $ Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/in_out_manager.F90,v 1.11 2007/03/02 16:37:06 opalod Exp $90 !! NEMO/OPA 3.0 , LOCEAN-IPSL (2008) 91 !! $Id:$ 87 92 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 88 93 !!---------------------------------------------------------------------- … … 92 97 SUBROUTINE ctl_stop( cd1, cd2, cd3, cd4, cd5, & 93 98 & cd6, cd7, cd8, cd9, cd10 ) 94 !!---------------------------------------------------------------------- -99 !!---------------------------------------------------------------------- 95 100 !! *** ROUTINE stop_opa *** 96 101 !! 97 !! ** Purpose : ??? blah blah.... 98 !!----------------------------------------------------------------------- 102 !! ** Purpose : print in ocean.outpput file a error message and 103 !! increment the error number (nstop) by one. 104 !!---------------------------------------------------------------------- 99 105 CHARACTER(len=*), INTENT(in), OPTIONAL :: cd1, cd2, cd3, cd4, cd5 100 106 CHARACTER(len=*), INTENT(in), OPTIONAL :: cd6, cd7, cd8, cd9, cd10 101 !!---------------------------------------------------------------------- -107 !!---------------------------------------------------------------------- 102 108 ! 103 109 nstop = nstop + 1 … … 122 128 SUBROUTINE ctl_warn( cd1, cd2, cd3, cd4, cd5, & 123 129 & cd6, cd7, cd8, cd9, cd10 ) 124 !!---------------------------------------------------------------------- -130 !!---------------------------------------------------------------------- 125 131 !! *** ROUTINE stop_warn *** 126 132 !! 127 !! ** Purpose : ??? blah blah.... 128 !!----------------------------------------------------------------------- 133 !! ** Purpose : print in ocean.outpput file a error message and 134 !! increment the warning number (nwarn) by one. 135 !!---------------------------------------------------------------------- 129 136 CHARACTER(len=*), INTENT(in), OPTIONAL :: cd1, cd2, cd3, cd4, cd5 130 137 CHARACTER(len=*), INTENT(in), OPTIONAL :: cd6, cd7, cd8, cd9, cd10 131 !!---------------------------------------------------------------------- -138 !!---------------------------------------------------------------------- 132 139 ! 133 140 nwarn = nwarn + 1 … … 151 158 152 159 FUNCTION getunit() 153 !!-----------------------------------------------------------------------154 !! *** FUNCTION getunit ***155 !!156 !! ** Purpose : ??? blah blah....157 !!-----------------------------------------------------------------------158 INTEGER :: getunit159 LOGICAL :: llopn160 !---------------------------------------------------------------------161 getunit = 15 ! choose a unit that is big enough then it is162 ! not already used in OPA163 llopn = .TRUE.164 DO WHILE( (getunit < 998) .AND. llopn )165 getunit = getunit + 1166 INQUIRE( unit = getunit, opened = llopn )167 END DO168 IF( (getunit == 999) .AND. llopn ) THEN169 CALL ctl_stop( 'getunit: All logical units until 999 are used...' )170 getunit = -1171 ENDIF172 160 !!---------------------------------------------------------------------- 161 !! *** FUNCTION getunit *** 162 !! 163 !! ** Purpose : return the index of an unused logical unit 164 !!---------------------------------------------------------------------- 165 INTEGER :: getunit 166 LOGICAL :: llopn 167 !!---------------------------------------------------------------------- 168 ! 169 getunit = 15 ! choose a unit that is big enough then it is not already used in NEMO 170 llopn = .TRUE. 171 DO WHILE( (getunit < 998) .AND. llopn ) 172 getunit = getunit + 1 173 INQUIRE( unit = getunit, opened = llopn ) 174 END DO 175 IF( (getunit == 999) .AND. llopn ) THEN 176 CALL ctl_stop( 'getunit: All logical units until 999 are used...' ) 177 getunit = -1 178 ENDIF 179 ! 173 180 END FUNCTION getunit 174 181
Note: See TracChangeset
for help on using the changeset viewer.