Changeset 8026
- Timestamp:
- 2017-05-15T17:54:57+02:00 (8 years ago)
- Location:
- branches/2015/nemo_v3_6_STABLE/NEMOGCM
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r7607 r8026 122 122 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: sprecip !: solid precipitation [Kg/m2/s] 123 123 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fr_i !: ice fraction = 1 - lead fraction (between 0 to 1) 124 #if defined key_cpl_carbon_cycle125 124 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: atm_co2 !: atmospheric pCO2 [ppm] 126 #endif127 125 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xcplmask !: coupling mask for ln_mixcpl (warning: allocated in sbccpl) 128 126 -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r6506 r8026 697 697 CASE( -1, 0 ) !== polynomial TEOS-10 / EOS-80 ==! 698 698 ! 699 DO jj = 1, jpj m1700 DO ji = 1, fs_jpim1 ! vector opt.699 DO jj = 1, jpj 700 DO ji = 1, jpi 701 701 ! 702 702 zh = pdep(ji,jj) * r1_Z0 ! depth … … 750 750 END DO 751 751 ! 752 CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. ) ! Lateral boundary conditions753 CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )754 !755 752 CASE( 1 ) !== simplified EOS ==! 756 753 ! 757 DO jj = 1, jpj m1758 DO ji = 1, fs_jpim1 ! vector opt.754 DO jj = 1, jpj 755 DO ji = 1, jpi 759 756 ! 760 757 zt = pts (ji,jj,jp_tem) - 10._wp ! pot. temperature anomaly (t-T0) … … 770 767 END DO 771 768 END DO 772 !773 CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. ) ! Lateral boundary conditions774 CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )775 769 ! 776 770 CASE DEFAULT -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90
r4152 r8026 5 5 !! with a constant or 1D or 2D or 3D array, using CPP macro. 6 6 !!---------------------------------------------------------------------- 7 #if defined key_zdfddm 7 #if defined key_zdfddm && ! defined key_offline 8 8 ! 'key_zdfddm' : avs: 3D array defined in zdfddm module 9 9 # define fsavs(i,j,k) avs(i,j,k) -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
r5385 r8026 23 23 PUBLIC trc_oce_alloc ! function called by nemogcm.F90 24 24 25 INTEGER , PUBLIC :: nn_dttrc 25 INTEGER , PUBLIC :: nn_dttrc = 1 !: frequency of step on passive tracers 26 26 REAL(wp), PUBLIC :: r_si2 !: largest depth of extinction (blue & 0.01 mg.m-3) (RGB) 27 27 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: etot3 !: light absortion coefficient -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/SETTE/BATCH_TEMPLATE/batch-ifort_athena
r6408 r8026 4 4 #BSUB -n NPROCS 5 5 #BSUB -a poe 6 #BSUB -J MPI_config6 #BSUB -J NEMO_SETTE 7 7 #BSUB -o poe.stdout.%J 8 8 #BSUB -e poe.stderr.%J -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/SETTE/BATCH_TEMPLATE/batch-ifort_athena_xios
r6408 r8026 4 4 #BSUB -n TOTAL_NPROCS 5 5 #BSUB -a poe 6 #BSUB -J MPI_config6 #BSUB -J NEMO_SETTE 7 7 #BSUB -o poe.stdout.%J 8 8 #BSUB -e poe.stderr.%J
Note: See TracChangeset
for help on using the changeset viewer.