Changeset 3214
- Timestamp:
- 2011-12-12T14:33:31+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90
r3200 r3214 41 41 !!--------------------------------------------------------------------- 42 42 ! 43 ALLOCATE( z42d(jpi,jpj), z4dep(jpk), STAT=dia_wri_dimg_alloc ) 44 ! 45 IF( lk_mpp ) CALL mpp_sum ( dia_wri_dimg_alloc ) 46 IF( dia_wri_dimg_alloc /= 0 ) CALL ctl_warn('dia_wri_dimg_alloc: allocation of array failed.') 43 IF( .NOT. ALLOCATED( z42d ) )THEN 44 45 ALLOCATE( z42d(jpi,jpj), z4dep(jpk), STAT=dia_wri_dimg_alloc ) 46 47 IF( lk_mpp ) CALL mpp_sum ( dia_wri_dimg_alloc ) 48 IF( dia_wri_dimg_alloc /= 0 ) CALL ctl_warn('dia_wri_dimg_alloc: allocation of array failed.') 49 50 ELSE 51 52 dia_wri_dimg_alloc = 0 53 54 ENDIF 47 55 ! 48 56 END FUNCTION dia_wri_dimg_alloc -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90
r3186 r3214 410 410 !!---------------------------------------------------------------------- 411 411 CONTAINS 412 SUBROUTINE tra_ldf_iso_grif( kt, cdtype, pgu, pgv, ptb, pta, kjpt, pahtb0 ) ! Empty routine 412 SUBROUTINE tra_ldf_iso_grif( kt, kit000, cdtype, pgu, pgv, & 413 & ptb, pta, kjpt, pahtb0 ) 413 414 CHARACTER(len=3) :: cdtype 415 INTEGER , INTENT(in ) :: kit000 ! first time step index 414 416 REAL, DIMENSION(:,:,:) :: pgu, pgv ! tracer gradient at pstep levels 415 417 REAL, DIMENSION(:,:,:,:) :: ptb, pta -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/par_oce.F90
r3212 r3214 101 101 INTEGER, PUBLIC, PARAMETER :: jpiglo = jpidta !: 1st dimension of global domain --> i 102 102 INTEGER, PUBLIC, PARAMETER :: jpjglo = jpjdta !: 2nd - - --> j 103 INTEGER, PUBLIC :: jpk = jpkdta !: number of vertical levels 103 104 104 ! zoom starting position 105 105 INTEGER, PUBLIC, PARAMETER :: jpizoom = 1 !: left bottom (i,j) indices of the zoom … … 176 176 INTEGER, PUBLIC :: jpi ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first dimension 177 177 INTEGER, PUBLIC :: jpj ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dimension 178 INTEGER, PUBLIC :: jpk ! = jpkdta 178 179 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices 179 180 INTEGER, PUBLIC :: jpjm1 ! = jpj-1 !: - - - -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/step.F90
r3161 r3214 78 78 INTEGER :: indic ! error indicator if < 0 79 79 !! --------------------------------------------------------------------- 80 write(narea+200,*)"kstp = ",kstp 80 81 81 82 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.